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Vorwort 


Das Wort BASIC steht als Abkürzung für »Beginner’s All- 
purpose Symbolic Instruction Code« und bedeutet 
wörtlich soviel wie »Allzweck Symbol-Anweisungs-Code 
für Anfänger« BASIC ıst also eine leicht zu erlernende 
Programmiersprache für Computer, mit der sich ganz 
universelle Programmaufgaben lösen lassen. Praktisch 
jeder Laie kann ohne besondere Kenntnisse der techni- 
schen Einzelheiten eines Computers mit Hilfe von BASIC 
eigene, voll funktionsfähige Programme realisieren, die 
entweder zur Unterhaltung dienen (zum Beispiel Spiele) 
oder bei den verschiedensten Arbeiten im Büro oder am 
heimischen Arbeitsplatz nützlich sind (Beispiele: Adres- 
senverwaltung, Rechnungs- und Mahnwesen). 

Obwohl BASIC relativ schnell erlernbar ist, gibt es natür- 
lich einige »Spielregeln« zu beachten, damit ein Pro- 
gramm tatsächlich den eigenen Vorstellungen und 
Wünschen gemäß abläuft. Immerhin wird mit Hilfe von 
BASIC eın »von Hause aus« gänzlich unproduktiver Com- 
puter programmıert. 

Unser Buch wird Ihnen helfen, BASIC sicher zu beherr- 
schen und effektiv einzusetzen, weil die einzelnen Lektio- 
nen des Kurses nach einem neuartigen Lehrkonzept auf- 
gebaut sınd: Ihnen werden keine isolierten und abstrak- 
ten BASIC-Programmbeispiele vorgeführt; vielmehr ent- 
wickeln wir Schritt für Schritt ein komplettes, praktisch 
einsetzbares Computerprogramm, so daß Sıe am Ende 
des Kurses nicht nur BASIC gelernt haben, sondern auch 
gleich über ein persönliches, funktionstüchtiges Anwen- 
derprogramm verfügen. Es handelt sıch dabei um eine 
universelle Personendatei, mit der Sıe zum Beispiel 
Adressen Ihrer Bekannten und Verwandten erfassen, de- 
ren Lieblingsfarbe, Lieblingsessen, Hobbys oder ähnlı- 
ches eintragen und komfortabel verwalten können. Das 
Programm läßt sich einerseits spielerisch nutzen (zum 
Beispiel als Ratespiel im Familienkreis: »In welchem Film 
spielte Schauspieler xy die Hauptrolle?«) oder aber be- 
ruflich, wenn Sıe etwa Kundenadressen nach bestimmten 
Kriterien selektieren und ausdrucken wollen. 

Das Konzept, BASIC durch den Aüfbau eines vollständi- 
gen Änwenderprogramms zu lehren, hat neben dem 
praktischen Nutzen des Programms noch den weiteren 


Vorteil, daß ım Verlauf des Buches immer wieder auf be- 
reits bekannte und durchgearbeitete Beispiele Bezug ge- 
nommen wird. Dadurch können Sie sich ganz auf die 
jeweils neuen und erweiterten Aspekte der BASIC- 
Programmierung konzentrieren und müssen sich nicht 
zusätzlich mit theoretischen Aufgabenstellungen be- 
schäftigen. 

Da sıch bei fast allen Computermodellen die einzelnen 
BASIC-Versionen In ihrem Umfang und ihrer Syntax ein 
wenig unterscheiden, ist dieser BASIC-Kurs auf den 
Commodore C-128 abgestimmt. Um die einzelnen Lektio- 
nen erfolgreich durcharbeiten zu können, benötigen Sie 
außer dem Computer selbst noch eine Diskettenstation 
und nach Möglichkeit einen Drucker. Der commodoreei- 
gene Spezialmonitor 1901 für 80-Zeichendarstellung oder 
ein Spezialkabel zum Wechseln von 40 Zeichen zu 80 Zei- 
chen sınd nıcht erforderlich, weil alle Programmabläufe 
ım 40-Zeichen-Modus stattfinden, also jenem Modus, der 
normalerweise nach dem Einschalten des Computers au- 
tomatısch aktiviert wird, wenn ein Fernseher oder eınfa- 
cher Monitor angeschlossen ist. Wer bereits mıt dem Mo- 
nıtor 1901 arbeitet, kann selbstverständlich die folgenden 
BASIC-Lektionen ebenfalls für sich nutzen. Auf die erweı- 
terten Darstellungsmöglichkeiten ım 80-Zeichenmodus 
wırd an den betreffenden Stellen hingewiesen. 

Wır gehen beim Begınn von Lektion 1 davon aus, daß Sıe 
die Bedienungsanleitung des Commodore C-128 schon 
durchgelesen haben und wissen, daß der Rechner nach 
dem Einschalten mit einer READY-Meldung und einem 
blinkenden Cursor (viereckiges Lichtsymbol) seine Auf- 
nahmebereitschaft anzeigt. Darüber hinaus sollte bei Ih- 
rem C-128 die ASCIVDIN-Taste niedergedrückt sein, da- 
mit dıe Tastatur der deutschen Norm entspricht (mit Um- 
lauten und ß). 

Werfen Sıe nun einmal einen Blick auf Seite 158 ff. Dort 
sehen Sıe das komplette BASIC-Programm, das ım Ver- 
lauf der einzelnen Lektionen Schritt für Schritt entwickelt 
wird. Falls Sie sıch noch nıe mit BASIC beschäftigt haben, 
werden Ihnen dıe vielen Wörter, Zahlen und Symbole 
gänzlıch fremdartıg vorkommen. Doch wenn Sie die fol- 
genden Lektionen durchgearbeitet haben, werden Sıe 
das gesamte Programm verstehen und sogar ın der Lage 
sein, Verbesserungen nach eigenen Vorstellungen einzu- 
programmieren. Nun wünschen wır Ihnen vıel Spaß und 
Erfolg beim Erlernen der Programmiıersprache BASIC. 


Einleitung 


Bevor ın Lektion 1 die ersten praktischen BASIC-Pro- 
grammierschritte durchgeführt werden, sollen Sie einige 
grundsätzliche Informationen über diese Programmıer- 
sprache erhalten. 

Wıe ım Vorwort kurz erklärt, ıst BASIC ein symbol- 
orientierter Code zur Programmierung von Computern. 
Die einzelnen BASIC-Wörter stehen dabei als Kürzel für 
bestimmte Operationen, die der Computer entweder 
nach direkter Eingabe des Codes (im Direktmodus) oder 
nach einem Programmstart (auf Programmebene) durch- 
führt. Da die BASIC-Wörter ıhren Funktionen gemäß for- 
muliert sind, bereitet es keine besonderen Schwierigker- 
ten, sie zu erlernen und zweckentsprechend einzusetzen. 
Zum Beispiel erlaubt der BASIC-Code »SAVE« (engl. »sı- 
chern«) das Abspeichern, das heißt das Sichern eines 
Programms auf Kassette oder Diskette. Das BASIC des 
Commodore C-128 verfügt insgesamt über rund 150 Co- 
de-Wörter, wovon man Jedoch ım allgemeinen nur etwa 
50 ständig benutzt. Die einzelnen BASIC-Wörter werden 
ın folgende Gruppen gegliedert: 


BASIC-Befehle dienen dazu, Programme zu bearbeiten, 
zu ändern, zu löschen, abzuspeichern, auszudrucken 
oder von Kassette oder Diskette ın den Speicher des 
Computers einzuladen (der oben erwähnte Code »SAVE« 
ıst also auch ein BASIC-Befehl). 

BASIC-Anweisungen haben den größten Anteil an den 
BASIC-Codes. Sie bestimmen den eigentlichen Pro- 
grammablauf und sınd somit ein besonders wichtiger Be- 
standteill der Programme. BASIC-Anweisungen werden 
ın drei Gruppen gegliedert: 


Die Unterschiede sınd rasch erklärt: Ein-/Ausgabeanwer- 
sungen regeln die Datenübertragung zwischen dem 
Computer, dem Bildschirm, der Tastatur, dem Drucker, 
der Diskettenstation und allen anderen Peripheriegerä- 
ten (das heißt Zusatzgeräten). Deklarationsanweisungen 
dienen zur Festlegung des Varliablentyps (Zahlen oder 
Zeichen), dıe der Programmierer frei und nach Jeweilı- 
gem Bedarf ın ein Programm aufnehmen kann. Steuer- 
anweisungen schließlich legen bestimmte Programmab- 
läufe fest (wenn zum Beispiel das Programm an einer be- 
stimmten stelle anhalten soll, damit der Benutzer eine 
Eıngabe machen kann). Im Verlauf der einzelnen Lektio- 
nen dieses BASIC-Kurses werden die verschiedenen An- 
weisungen noch ausführlich vorgestellt. 
BASIC-Funktionen übergeben nach ıhrer Ausführung be- 
stimmte Daten zur Weiterbearbeitung an das Programm. 
Man unterscheidet zwischen 


Finkinen 


) 


Durch numerische Funktionen werden nach Ausführung 
Zahlenwerte (zum Beispiel »12%) an das Programm weı- 
tergegeben; beı alphanumerischen Funktionen sınd es 
Zeichen (zum Beispiel »A« oder »Frankfurte). Es ıst auch 
möglich, Zahlen über alphanumerische Funktionen einzu- 
geben. Diese werden dann Jedoch als Zeichenkette wie 
Buchstaben behandelt und können nıcht zu Rechenopera- 
tionen herangezogen werden. 

Nach dieser kurzen theoretischen Einführung in BASIC 
kann die erste Lektion des Programmiıerkurses begın- 
nen. Die einzelnen Befehle, Anweisungen und Funktio- 
nen des Commodore-BASIC werden dabei stets ım Rah- 
men praktischer Anwendungsbeispiele ausführlich erläu- 
LSKt. 


Lektion | 


Praktische Einführung ın BASIC 


Für die ersten praktischen Programmıerübungen wird 
weder die Diskettenstation noch ein Drucker benötigt. 
Ssıe müssen lediglich das Sıchtgerät (Fernseher oder Mo- 
nitor) und den Computer einschalten. Die ASCIVDIN- 
Taste sollte niedergedrückt sein, weıl hierdurch die Ta- 
statur der deutschen Norm entspricht. Ohne diese Um- 
schaltung stehen die Umlaute (A,U,Ö) und das »ß« nicht 
zur Verfügung. Bei allen folgenden Eingaben gelten also 
die grauen Schriftzeichen der Tastatur. 

Nach dem Einschalten erscheint auf dem Bildschirm fol- 
gendes: 


COMMODORE BASIC V7.0 122365 BYTES FREE 
(C)1985 COMMODORE ELECTRONICS,LDT. 
(C)1977 MICROSOFT CORP. 

ALL RIGHTS RESERVED 


READY. 
iM 


Die oberste Zeile zeigt, daß dıe BASIC-Versiıon 7.0 (nor- 
male BASIC-Version des Commodore C-128) aktiviert ist 
und daß 122365 Speicherstellen für Programme freı sınd 
(dıe Funktionen von Speicherstellen werden später noch 
eingehend erläutert). Auf den nächsten Zeilen folgen Ur- 
heberrechtangaben der Firmen, die an der Entwicklung 
des Computersystems beteiligt waren. Die Meldung 
READY und der blinkende Cursor signalisieren die Auf- 
nahmebereitschaft des Computers für Eingaben des Be- 
nutzers. Der Rechner befindet sıch zu diesem Zeitpunkt 
Im sogenannten Direktmodus. 

Die Programmierung in BASIC kann somit beginnen. Um 
die Entwicklung des Datenverwaltungsprogramms vorzu- 
bereiten, das ım Verlauf der einzelnen Lektionen Schritt 
für Schritt entstehen wird, ıst es sinnvoll, Ihnen zunächst 
einige der grundlegendsten BASIC-Codes vorzustellen. 
Bei fast allen Programmen erscheinen auf dem Bild- 
schirm Texte, dıe Bedienungshinweise, Erläuterungen 
oder ähnliches enthalten. Um den Computer anzuweisen, 
daß er einen bestimmten Text auf den Bildschirm schreı- 


ben soll, kann man natürlich nicht über die Tastatur ein- 
geben »Schreibe auf den Bildschirm den Text 'Erklärun- 
gen'« Der Computer würde in diesem Fall die Fehler- 
meldung »SYNTAX ERROR« (engl. »Schreibfehler«) ausge- 
ben, weil der eben genannte Satz keine BASIC-Anwei- 
sung darstellt. Die korrekte Anweisung, mit der Texte auf 
den Bildschirm gebracht werden, lautet PRINT (engl. 
»drucke« oder »schreibe in Druckbuchstaben«d. Geben 
Sie nun über die Tastatur folgendes ein: 


PRINT "ERKLÄRUNGEN" [RETURN] 


COMMODORE BASIC V7.0 122365 BYTES FREE 
(521385 ECOMMDDORE ELECTRONIES,LOT. 
221977 MICROSOFT CORP. 
ALL RIGHTS RESERVED 
READY. 
PRINT ”ERKLAÄRUNGEN” 
ERKLAÄRUNGEN 


READY. 
m 


Mit [RETURN] ist das Drücken der Taste RETURN ge- 
meint und nicht die Eingabe der Buchstabenfolge 
RETURN. Die Taste [RETURN] dient jeweils als Ab- 
schluß einer Eingabe und bewirkt, daß der Rechner (im 
Direktmodus) die Anweisung oder den Befehl ausführt. 
Der Text, der auf dem Bildschirm erscheinen soll (in die- 
sem Fall also das Wort »Erklärungen«), muß dabei in 
Anführungsstrichen (“ “) stehen. 

Auf dem Bildschirm erscheint nun unter der Eingabezeile 
das Wort »ERKLÄRUNGEN« (und darunter wiederum die 
READY-Meldung). Auf diese Weise lassen sich beliebige 
Texte auf den Bildschirm schreiben. 

Die PRINT-Anweisung beschränkt sich jedoch nicht nur 
auf die Darstellung von Texten. Auch Zahlen und kom- 
plette Rechenoperationen können mit Hilfe der PRINT- 
Anweisung auf den Bildschirm gebracht werden. Lö- 
schen Sıe vor dem folgenden Beispiel Ihren Bildschirm, 


indem Sıe die Tasten [SHIFT] und [CLR HOME] gleichzei- 
tıg drücken. CLR steht als Abkürzung für »CQlear« (engl. 
»löschen«), HOME bedeutet »Heim, Zuhause« und wird in 
diesem Zusammenhang benutzt, weil der Cursor nach 
dem Löschen in der oberen linken Ecke des Bildschirms 
steht, seinem Ausgangspunkt (seinem »Zuhause«). Geben 
Sıe diese PRINT-Anweisung eın: 


PRINT 1+1 [RETURN] 


Auf dem Bildschirm erscheint nun nicht die Eingabefolge 
»l+l« sondern das Ergebnis dieser Rechnung. Die 
PRINT-Anweisung kann demzufolge sowohl zur einfachen 
Textdarstellung als auch zur Ausgabe von Rechenergeb- 
nıssen benutzt werden. Hierzu dürfen jedoch die numeri- 
schen Werte nıcht ın Anführungszeichen stehen, sondern 
müssen der PRINT-Anweisung direkt folgen. Sıe können 
sıch leicht davon überzeugen, indem Sıe folgende Einga- 
be machen: 


PRINT "1+1" [RETURN] 
Nun erscheint unter der Eingabezeile keine »2«, sondern 


die Zeichenfolge »1+ l«. Somit sind bei der Verwendung 
der PRINT-Anweisung zwei Aspekte zu beachten: 


Die Schreibweise von Rechenaufgaben ist ın BASIC zum 
Teıl anders als gewohnt. Beı Addition und Subtraktion 
gibt es keine Unterschiede (zum Beispiel PRINT 1+1 
oder PRINT 2-1). Für Multiplikationsaufgaben wird jedoch 
das Zeichen »*« (zum Beispiel PRINT 2*2) und zur Division 
das Zeichen »/« (zum Beispiel PRINT 4/2) verwendet. 
Wenn es Ihnen Spaß macht, können Sıe nun PRINT- 
Anweisungen mit Textinhalten oder Rechenaufgaben 
nach eigenen Vorstellungen eingeben. Dabeı ıst es 
möglıch, dıe Anweisung PRINT durch ein Fragezeichen 
abzukürzen (also ? 1+1 anstatt PRINT 1+1). Diese Ab- 
kürzung erleichtert dıe Eingabe ein wenig. Sie kann 
natürlich auch bei Texteingaben verwendet werden (zum 
Beispiel ? "GELD' statt PRINT GELD’). 


PRINT 1+1 
= 


READY. 
IM 


PRINT 1*1 


Eine weitere Besonderheit der PRINT-Anweisung ist dıe 
Möglichkeit, mit dem Pluszeichen (+) Texte aneinander- 
zufügen. Löschen Sie wieder durch gleichzeitiges 
Drücken der Tasten [SHIFT] und [CLR HOME] den mo- 
mentanen Bildschirminhalt, und geben Sıe folgende 
PRINT-Anweisung ein: 


? WANFANGS"+WERKLÄRUNGEN" [RETURN] 


PRINT ”"ANFANGS”+"ERKLARUNGEN” 
ANFANGSERKLÄRUNGEN 


READY. 
um 


Als Ergebnis lesen Sıe nun unter der Eingabezeile die Zu- 
sammenfassung »ANFANGSERKLÄRUNGEN«. Die Mög- 
lichkeit, Texte auf diese Weise zusammenzufügen, wird 
ın späteren Lektionen sınnvoll angewandt werden. Es ıst 
jedoch nıcht möglich, mit Hilfe des Minuszeichens Texte 
zu trennen (zum Beispiel PRINT "ANFANGSERKLÄA- 
RUNGEN’ — "ERKLÄRUNGEN’). Solch eine Anweisung 
führt lediglich zu der Fehlermeldung »TYPE MISMATCH 
ERROk« (engl. unsinniger Ausführungsfehler). 

Nach diesen ersten Übungen mit einer BASIC-Anweisung 
haben Sıe Jedoch noch kein Programm geschrieben, weil 
alle Eingaben ım Direktmodus ausgeführt wurden. Das 
hatte zur Folge, daß dıe PRINT-Anweisungen nur einmal 
erschienen und nach dem Löschen des Bildschirms end- 
gültig verschwunden waren. Laufen hingegen die PRINT- 
Anweisungen auf Programmebene ab, sınd sıe Immer 
wıeder ohne Neueingabe aufrufbar, und zwar so lange, 
bis der Computer ausgeschaltet wird. Aus diesem Grund 
ıst es wichtig, ein längeres BASIC-Programm auf Kassette 
oder Diskette abzuspeichern, weıl man es von dort Im- 
mer wieder mit nur einem Befehl ın den Speicher des 
Rechners laden und sofort starten kann. 


Um vom Direktmodus zur Programmebene zu gelangen, 
ıst nur ein einziger weiterer Schritt notwendig: Allen Eın- 
gaben muß eine Programmzeilennummer vorangestellt 
werden. Löschen Sıe wıeder den Bildschirm und geben 
Sie ein: 


1 ? "ANFANGSERKLÄRUNGEN" [RETURN] 


? "ANFANGSERKLÄRUNGEN” 


Nach [RETURN] erscheint nun nıcht das eingegebene 
Wort, sondern lediglich der blinkende Cursor ın der 
nächsten Zeile. Durch dıe Eingabe der Programmzeilen- 
nummer hat der Computer die PRINT-Anweiısung nicht 
direkt ausgeführt, sondern in seinen Speicher übernom- 
men (wie man beim Einschalten lesen konnte, stehen 
122365 Speicherstellen zur freien Verfügung). Sıe können 
nun weitere Programmzeilen eingeben, zum Beispiel: 


? "UM VOM DIREKTMDDUS AUF”? 
"PROGRAMMEBENE ZU GELANGEN, ” 
"MUSS MAN JEDER ANWEISUNG” | 
»EINE ZEILENNUMMER VORANSTELLEN.” 


NEWM 
EAN 


Dies ıst ein vollgültiges BASIC-Programm. Löschen Sie 
nun wıleder den Bildschirm mit [SHIFT]-ICLR HOME] und 
geben Sıe diese Zeichenfolge eın: 


RUN [RETURN] 


sogleich erscheint auf dem Bildschirm der eingegebene 
Text. Der Code RUN (engl. »laufen«, sin Gang bringen«) 
ıst ein BASIC-Befehl, mit dem eın Programm gestar- 
tet werden kann. Sıe können gleich noch einmal RUN 
[RETURN] eingeben und dem Computer damit befehlen, 
die PRINT-Anweisungen ein zweites Mal auf Programm- 
ebene auszuführen. 


RUN 
ANFANGSERKLARUNGEN 


UM VOM DIREKTMDDUS AUF 
PROGRAMMEBENE ZU GELANGEN, 

MUSS MAN JEDER ANWEISUNG 

EINE ZEILENNUMMER VORANSTELLEN. 


RERDY. 
m 


Wie oben erwähnt, werden Anweisungen, denen eine 


Programmzeilennummer vorangestellt wird, in den Spel- 
cher des Rechners aufgenommen. Von dort kann man eın 


eingegebenes Programm natürlich auch wieder auf den 
Bildschirm listen. Wie alle BASIC-Kürzel ist der hierfür 
zuständige Befehl seiner Funktion gemäß formuliert, 
nämlich LIST. Geben Sie diesen Befehl nun eın. 


LIST [RETURN] 


RUN 


ANFANGSERKLAÄRUNGEN 

UM VOM DIREKTMDDUS AUF 
PROGRAMMEBENE ZU GELANGEN, 

MUSS MAN JEDER ANWEISUNG 

EINE ZEILENNUMMER VORANSTELLEN. 


READY. 
LiS1I 


PRINT ”ANFANGSERKLAÄRUNGEN” 

PRINT ”UM VOM DIREKTMODUS AUF” 
”PROGRAMMEBENE ZU GELANGEN, ” 
»MUSS MAN JEDER ANWEISUNG” 
"EINE ZEILENNUMMER VORANSTELLEN.” 


Auf dem Bildschirm erscheinen die PRINT-Anweisungen 
mit den jeweiligen Programmzeilennummern. Es Ist nun 
möglıch, einzelne Programmzeilen zu ändern, zu löschen 
oder aber das Programm durch neue Eingaben zu 
ergänzen. Bei dem augenblicklichen Programm bietet es 
sich an, zwischen der Überschrift »ANFANGSERKLÄ- 
RUNGEN« und dem folgenden Text eine Leerzeile einzu- 
fügen, weil dies besser aussieht. Man programmiert sie, 
indem man (nach der Programmzeilennummer) eine 
PRINT-Anweisung ohne Text oder Zahlen eingibt. 

Wıe unschwer zu erkennen Ist, steht jedoch zwischen 
Programmzeile 1 ANFANGSERKLÄRUNGEN«) und Zei- 
le 2 6UM VOM DIREKTMODUS...o kein Platz für eine 
weitere Programmzeile zur Verfügung, denn Eingaben 
wie 1,5 PRINT sınd nıcht möglich. Hier ıst nun ein Pro- 
blem entstanden, das Jeder erfahrene BASIC-Program- 
mierer von vornherein umgeht. Denn im allgemeinen 
wählt man beı der Eingabe von Programmzeilennum- 
mern keine chronologischen Kleinschritte wie 1, 2, 3..., 
sondern meist 10, 20, 30... Wenn dann eine Zeile zwI- 
schengefügt werden muß, kann man zum Beispiel die Zeı- 
lennummer 15, 25 oder 35 wählen. Einfügungen werden 
automatisch richtig geordnet. 

Um ın das Beispielprogramm eine neue Zeile zwischen- 
zufügen, Ist es Jedoch nicht notwendig, alles zu löschen 
und mit größeren Programmzeilenschritten neu zu begıin- 
nen. Das Commodore-BASIC hält für dieses Problem 
eine einfache Lösung bereit. Es ist der Befehl RENUM- 
BER (engl. »umnumerleren«. Mit ıhm kann Jedes BASIC- 
Programm neu und mit frei wählbaren Schrittweiten nu- 
meriert werden. Geben Sıe nun diesen Befehl ein, und 
lassen Sie das Programm neu auf den Bildschirm listen. 


RENUMBER [RETURN] 
LIST [RETURN] 


Das Programm beginnt Jetzt mit Zeilennummer 10 und hat 
die Schrittweite 10. Es ıst auch möglich, ein Programm mit 
anderer Startnummer und Schrittweite umzunumerieren. 
In diesem Fall muß man den RENUMBER-Befehl ergän- 
zen, zum Beispiel: RENUMBER 20,50 [RETURN]. Hier- 
durch würde das Programm mit Zeile 20 beginnen und 
als Schrittweite 50 nehmen. Der RENUMBER-Befehl kann 
beliebig oft angewandt werden. 

Durch die oben vollzogene Neunumerlerung kann jetzt 
dıe gewünschte PRINT-Anweisung für die Leerzeile zwI- 
schen der Überschrift und dem übrigen Text eingefügt 
werden. Geben Sıe dazu folgende Programmzeile eın: 


35 7 ERETURN) 


"ANFANGSERKLARUNGEN” 
20 PRINT ”UM VOM DIREKTMDDUS AUF” 

30 PRINT ”PROGRAMMEBENE ZU GELANGEN, ” 

40 PRINT "MUSS MAN JEDER ANWEISUNG” 

"EINE ZEILENNUMMER VORANSTELLEN.” 


Löschen Sie nun wieder den Bildschirm und starten Sie 
nit 


RUN [RETURN] 


RUN 

ANFANGSERKLARUNGEN 

UM VOM DIREKTMODUS AUF 
PROGRAMMEBENE ZU GELANGEN, 

MUSS MAN JEDER ANWEISUNG 

EINE ZEILENNUMMER VORANSTELLEN. 


READY. 
ii 


Der Text erscheint jetzt in der gewünschten Weise. Damit 
können wir die Programmierarbeit beenden und für die 
Eingabe von Programmzeilen folgendes festhalten: 


Um ın einem BASIC-Programm eine einzelne Programm- 
zeile zu löschen, gıbt man nur die Zeilennummer ein und 
betätigt die [RETURN]-Taste (zum Beispiel 15 [RETURN)). 
Nach dem LIST-Befehl sehen Sie, daß die Zeile 15 ver- 
schwunden ist. Will man nicht nur eine Zeile, sondern das 
komplette Programm aus dem Speicher löschen, so lautet 
der Befehl dazu NEW (engl. »neu«). Da das aktuelle Pro- 
gramm nicht mehr benötigt wird, können Sie diesen Be- 
fehl Jetzt eingeben: 


NEW [RETURN] 
Wenn Sıe nun LIST [RETURN] eingeben, erscheint nicht 


mehr als dıe bekannte READY-Meldung. Der Computer 
ıst Jetzt für ein neues BASIC-Programm aufnahmebereit. 


Merksatz. ; 


Eine BASIC- ‚Programmzeile im Commodore C-128-Mo- 
dus darf höchstens 160 Zeichen enthalten | 


Im Verlauf der bisherigen Eingaben mußten Sie mehr- 
mals das Wort »ANFANGSERKLÄRUNGEN« beziehungs- 
weise verschiedene Zahlen für Rechenoperationen eın- 
tıppen. BASIC bietet jedoch auch die Möglichkeit, statt 
dessen mit Variablen zu arbeiten. Es wird zwischen nu- 
merischen und alphanumerischen Vanablen unterschie- 
den. Numerische Varlablen stellen Zahlen, alphanumeri- 
sche Variablen einzelne Zeichen (zum Beispiel »A«) oder 
Zeichenketten (zum Beispiel »Frankfurt«) dar. 

Der Einsatz von Varlablen lohnt sich immer dann, wenn 
ein Zahlenwert oder ein Text mehrmals ın einem Pro- 
gramm verwendet wird. Um eine Varlable zu definieren, 
muß ıhrem Namen eın Zahlenwert (oder eine Zeichen- 


kette) zugewiesen werden. Varlablennamen bestehen 
aus mindestens einem Buchstaben (zum Beispiel »Ad); 
alphanumerische Varlablennamen erhalten zusätzlich 
noch die Kennung »$«. Dieses Dollarzeichen wird als 
»String« (engl. »Schnur«, »Kette«, abgeleitet von »Zeichen- 
kette«) bezeichnet, so daß für dıesen Varlablentyp auch 
der Begriff String-Variable verwendet wird. 

Nun wiederum zur Programmierpraxis. Definieren Sie (im 
Direktmodus) folgende Varlablen: 


A=10 [RETURN] 
A$="ANFANGSERKLÄRUNGEN“" [RETURN] 


Im Speicher des Computers ist damit dem Variablenna- 
men »Ä« der numerische Wert 10 zugewiesen worden, 
während der Variablenname »A$« (ausgesprochen »A- 
String«) die Zeichenfolge »ANFANGSERKLÄRUNGEN« 
repräsentiert. Mit diesen Variablen können Sie nun belıe- 
big arbeiten; zum Beispiel: 


? A [RETURN] 
? A$ [RETURN] 


READY. 
? PAS 
ANFANGSERKLAÄRUNGEN 


READY. 
m 


Auf dem Bildschirm erscheinen die Zahl 10 und das Wort 
»ANFANGSERKLÄRUNGEN«. Definieren Sie zwei weite- 
re Varlablen: 


B=20 [RETURN] 
B$=" MIT TEXTBEISPIELEN" [RETURN] 


Löschen Sie nun den Bildschirm wieder mit den Tasten «- 
SHIFT)«CLR HOME) und geben Sie eın: 


? A+B [RETURN] 
? A$+B$ [RETURN] 


? A+B 
30 


READY. 
? AS+BS$S 
ANFANGSERKLÄRUNGEN MIT TEXTBEISPIELEN 


READY. 
Be 


Das Ergebnis zeigt, daß Variablen in gleicher Weise be- 
arbeitet werden können wie direkt eingegebene Werte 
und Zeichenketten. Dennoch gibt es bei der Auswahl von 
Variablennamen einige Punkte zu beachten: 


Besonders die begrenzte Möglichkeit zur Zeichenerken- 
nung Ist bei der Vergabe von Varlablennamen zu beach- 
ten. So würde eine Definition wie AAl=100 und 
AA2=200 dazu führen, daß der Computer lediglich eine 
Variable mit dem Namen »AA« erkennt und mit dem ıhm 
zuletzt zugewiesenen Wert 200 bearbeitet. Korrekt wäre 
vielmehr eine Definition wie Al=100 und A2=200. Lange 
Variablennamen (wie KONTONUMMER) dienen lediglich 
dem Computeranwender zur besseren Orientierung ın 
einem Programm. 

In fast allen BASIC-Programmen — besonders auch beı 
der Ausarbeitung des Datenverwaltungsprogramms ın 
diesem Buch — übernehmen Varlablen wichtige Aufga- 
ben. Ab Lektion 8 werden wır daher noch weitere Va- 
riablentypen vorstellen sowie Möglichkeiten aufzeigen, 
wie sich mit Hilfe spezieller BASIC-Funktionen Varlablen- 
werte manipulieren und weitreichend bearbeiten lassen. 


Lektion 2 


Einführung ın die 
Datenverwaltung und 
Menütechnik 


Nachdem ın Lektion 1 die ersten praktischen Erfahrun- 
gen mit der Programmiersprache BASIC vermittelt wur- 
den, soll nun der schrittweise Aufbau des Datenverwal- 
tungsprogramms folgen, von dem schon mehrfach die 
Rede war. 

Als Vorbilder dıenen dabeı die vielen professionellen 
Datenverwaltungsprogramme, die es auf dem Markt für 
Home- und Personal Computer gibt. Prinzipiell überneh- 
men sıe die Funktion von Ordnern und Karteikarten über- 
all dort, wo mit Informationen, Fakten und Daten aller Art 
gearbeitet wird. Allerdings sind Datenverwaltungspro- 
gramme aufgrund ıhrer Bedienungsfreundlichkeit und 
weitreichenden Leistungen erheblich angenehmer ım 
praktischen Einsatz als das Durchwühlen unüberschau- 
barer Papierberge oder Karteikästen. 

Das Leistungsspektrum eines Datenverwaltungspro- 
gramms läßt sıch folgendermaßen zusammenfassen: 


Das Erfassen und Ändern von Daten mit Hilfe des Com- 
puters kann man sıch ähnlıch vorstellen wıe die Eiıntra- 
gungen auf einer Karteikarte oder das Schreiben einer 
Liste. Beim Computer werden alle über die Tastatur ein- 
gegebenen Daten auf Diskette oder Kassette abgespeiı- 
chert, so wıe man ein Musikstück auf Tonband aufnımmt. 
Der Inhalt dieser Dateı (auch Datenbank oder »File«, 
engl. Ordner, Akte, genannt) kann mit Hilfe eines Druc- 
kers zu Papier gebracht werden. 


Bis hierher offenbaren sıch noch keine besonderen Vor- 
tele einer Computerdatei gegenüber der herkömmli- 
chen Karteı. Interessant werden die Leistungen eines Da- 
tenverwaltungsprogramms jedoch, wenn zum Beispiel 
nach zahlreichen Neueintragungen die gesamte Datei al- 
phabetisch geordnet werden soll. Das Sortieren per 
Hand ist zeitraubend und lästig. Der Computer sortiert el- 
ne Datei fehlerfrei in wenigen Minuten nach allen ge- 
wünschten Kriterien; also nıcht nur alphabetisch, sondern 
zum Beispiel auch nach Postleitzahlen oder Wohnorten 
(im Fall einer Ädressendatei). 

Besonders komfortabel ıst die Nutzung von Selektions- 
funktionen ın einem Datenverwaltungsprogramm. Meist 
lassen sich mehrere Selektionsbegriffe miteinander ver- 
knüpfen, so daß eine Datei auf verschiedenen Ebenen 
gleichzeitig durchsucht wird. Zum Beispiel: »Liste alle 
Adressen auf, dıe nach dem |. 12. 1985 eingetragen wur- 
den, sich im Raum Frankfurt befinden und den Prospekt 
vom Februar 1985 bekommen haben«. Im herkömmlichen 
Karteiverfahren müßten dazu sämtliche Eintragungen ein- 
gesehen werden; der Computer erledigt solche Aufga- 
ben ın wenigen Minuten. 

Auch ın BASIC läßt sıch ein leistungsfähiges Datenver- 
waltungsprogramm erstellen; allerdings soll das hier ım 
Buch entwickelte Programm nicht nur für den Einsatz ım 
Berufsleben dienen, sondern auch rein privat im Famıl- 
lıenkreis sinnvoll genutzt werden können. Aus diesem 
Grund wird dieses Datenverwaltungsprogramm als Per- 
sonendatei entwickelt, mit dem zum Beispiel ein Familien- 
mitglied interessante Informationen über seinen Lieb- 
lingssänger sammelt, während eın anderer Familienan- 
gehöriger lustige »Fakten« über dıe Verwandtschaft ein- 
trägt. 

Um die zum Teil sehr komplexen Funktionen eines Daten- 
verwaltungsprogramms zu ordnen und für den Anwen- 
der überschaubar zu halten, bedient man sıch der soge- 
nannten »Menütechnik« Das bedeutet: Auf dem Bild- 
schirm erscheinen mehrere Auswahlmöglichkeiten (eben 
ein »Menü« für Programmfunktionen, die durch Eingabe 
eines Buchstabens oder einer Zahl aufgerufen werden 
können. Zum Beispiel könnte das Hauptmenü zu der Per- 
sonendatei ın diesem Buch wie auf Seite 25 oben ausse- 
hen. 

Andere Funktionen, wie zum Beispiel das Ändern von 
eingegebenen Daten, werden In einem weiteren Menü 
(auch »Untermenü« genannt) zur Auswahl gestellt. Eın 
Menü läßt sıch durch einfache PRINT-Anweisungen auf 
den Bildschirm bringen. Da Sıe ın Lektion 1 hierin schon 
Erfahrungen gesammelt haben, können Sıe sıch gleich 


eingeben 
lesen 


ändern 
ausdrucken 


sortieren 
selektieren 


Ihre Eingabe: 


wıeder ın Programmierpraxis üben und das oben gezeig- 
te Hauptmenü mit Hilfe von Programmzeilennummern 
und PRINT-Anweisungen eingeben. Es ıst dabeı ım 
Augenblick noch nicht notwendig, auch die zur Auswahl 
stehenden Funktionen zu programmieren. Notwendig ist 
jedoch, den Computer zunächst in den Groß-/Klein- 
schriftmodus umzuschalten, weil nach dem Einschalten 
nur Großbuchstaben eingegeben werden können. Für 
die Datenverwaltung beziehungsweise für alle Program- 
me, In denen Text verarbeitet wird, ist es zweckmäßig, 
Groß- und Kleinbuchstaben zur Verfügung zu haben. Zum 
Umschalten in diesen Modus müssen beim Commodore 
128 dıe Taste mit dem Commodore-Zeichen und [SHIFT] 
gleichzeitig gedrückt werden. Alle BASIC-Befehle und 
-Anweisungen werden nun in Kleinbuchstaben eingege- 
ben. Lediglich Texte (innerhalb von PRINT-Anweisungen) 
können — genau wie bei einer Schreibmaschine — durch 
Drücken von [SHIFT[ plus Zeichentaste in Groß- und 
Kleinbuchstaben programmiert werden. Will man eın 
ganzes Wort oder einen Satz ın Großbuchstaben schrei- 
ben, drückt man vorübergehend die Taste [SHIFT 
LOCK]. 

Im folgenden Listing finden Sie in den Zeilen 10 und 20 
zwei neue BASIC-Wörter. Es handelt sıch um die Anweiı- 
sungen REM und SCNCLR. REM steht als Abkürzung für 
»Remember« (engl. »erinnernd) und SCNCLR für »Screen 
Clear« (engl. »Bildschirm löschen«). 


REM wird verwendet, um innerhalb eines BASIC-Pro- 
gramms bestimmte Kommentare und Anmerkungen zu 
geben, die dem Anwender zur besseren Übersicht die- 
nen. Die Anweisung REM hat keinerlei Einfluß auf den 
Programmablauf selbst, das heißt Texte, dıe einer REM- 
Anweisung folgen, erscheinen nach RUN [RETURN] nicht 
auf dem Bildschirm, sondern nur bei Eingabe des LIST- 
Befehls. Ein BASIC-Programm kann beliebig viele REM- 
Anweisungen enthalten. 

Mit SCNCLR wird auf Programmebene die Funktion aus- 
geführt, die bisher durch [SHIFT-HCLR HOME] ım Direkt- 
modus aufgerufen wurde, also das Löschen des Bild- 
schirms. Die SCNCLR-Anweisung kann innerhalb eines 
BASIC-Programms überall dort gegeben werden, wo 
zum Beispiel ein Auswahlmenü erscheinen soll oder das 
Löschen des Bildschirminhalts aus anderen Gründen 
sinnvoll ıst. 

Wie Sıe sehen, folgt der REM-Anweisung ın Zeile 10 der 
Kommentar »listing 2.1«. Dieser Text wurde gewählt, weil 
sich das Listing 2.1 unter diesem Namen auch auf der Be- 
gleitdiskette zu diesem Buch befindet. In Ihrem eigenen 
Listing können Sıe In Zeile 10 natürlich auch einen ande- 
ren Text wählen. 


....dhre Eingabe: ... 


Me 


Eine REM-Anweisung darf keine Zeichen enthalten, 
die bei gedrückter SHIFT-Taste eingegeben werden 


Nach RUN [RETURN] erscheint das Hauptmenü wıe auf 
dem Bildschirm oben. Jedoch wird nach der PRINT-An- 
weisung »Ihre Eingabe:« das Programm beendet, ohne 
daß eine Eingabe durch den Anwender stattgefunden 
hat. Folglich muß an dieser Stelle des Programms eine 
weitere Anweisung erfolgen. BASIC bietet hierfür zwei 
Möglichkeiten: Die Anweisungen INPUT (engl. »Eingabe- 
leistung«) und GETKEY (engl. »nımm Taste«). 

Sowohl beı INPUT als auch bei GETKEY hält der Compu- 
ter die Ausführung eines Programms an und wartet auf 
eine Eingabe über die Tastatur. Bei dieser Eingabe kann 
es sıch um einen numerischen oder einen alphanumerı- 
schen Wert handeln (also um eine Zahl oder eın Zeichen 
beziehungsweise eine Zeichenkette). In jedem Fall wırd 
der eingegebene Wert einer Varlablen zugewiesen. Die- 
se Varıable muß ım Anschluß an eine INPUT- oder GET- 
KEY-Anweisung benannt werden; zum Beispiel INPUT A 
oder INPUT A$ beziehungsweise GETKEY A oder GET- 
KEY A$. Um den Unterschied zwischen den Anweisun- 
gen zu erkennen, geben Sıe folgende Programmzeile eın: 


190 input a [RETURN] 


Neue Datei eröffnen 
Bestehende Datei ergänzen 


Eingegebene Daten ändern 
Eingegebene Daten ausdrucken 


Zurück zum Hauptmenü 


Ihre Eingabe: 


Starten Sie dann wieder mit RUN [RETURN]. Auf dem 
Bildschirm erscheint unter dem Text zum Hauptmenü eın 
Fragezeichen und der Cursor, nicht aber die READY- 
Meldung des Rechners. Sie können nun einen numerl- 
schen Wert eingeben, zum Beispiel 1 [RETURN]. Erst da- 
nach wırd das Programm beendet. 


Ändern Sie nun Programmzeile 190, indem Sie eingeben: 
190 getkey a [RETURN] 


Nach RUN [RETURN] erscheint lediglich der Text für das 
Hauptmenü. Der Computer wartet aufgrund der Anwer- 
sung in Zeile 190 auf eine Eingabe über die Tastatur, oh- 
ne diesen Wartezustand durch ein Fragezeichen oder 
einen blinkenden Cursor anzuzeigen. Wenn Sie nun | 
(oder eine andere Zahl) drücken, wird das Programm be- 
endet, und es erscheint die bekannte READY-Meldung. 
Als Unterschied zwischen INPUT und GETKEY läßt sıch 
somit folgendes festhalten: 


Ein weiterer und bedeutender Unterschied zwischen den 
beiden Anweisungen ist die Tatsache, daß bei einer 
INPUT-Anweisung mehrere Zahlen oder Zeichen nach- 
einander eingegeben werden können, während eine 
GETKEY-Anweisung immer nur einen einzelnen Tasten- 
druck verarbeitet. 

Beı der Wahl, ob man eıne Eingabe über INPUT oder 
GETKEY laufen läßt, ist folgende Überlegung zugrunde 
zu legen: Wenn die Eingabe aus mehreren Zahlen oder 
Zeichen besteht oder ın irgendeiner Weise weiterverar- 
beitet werden soll (zum Beispiel ein eingegebener Geld- 
betrag oder eın Personenname), dann ıst dıe INPUT- 
Anweisung anzuwenden, wenn hingegen die Eingabe aus 
nur einer Zahl beziehungsweise einem Zeichen besteht 
und nicht weıterverarbeitet wird, dann kann die GET- 
KEY-Anweisung angewandt werden. 


Im vorliegenden Beispiel, also der Eingabe von Auswahl- 
punkten ın einem Menü, trifft die zweite Bedingung zu, 
weil die eingegebene Zahl (1 bıs 7) als Wert nıcht weiter 
Interessant ist; interessant sind vielmehr die Funktionen, 
die mit 1,2, 3... aufgerufen werden. Die Anwendung von 
GETKEY hat den Vorteil, daß die Eingabe nicht mit [RE- 
TURN] abgeschlossen werden muß, sondern daß sofort ın 
die entsprechenden Programmabschnitte verzweigt wird 
(dıe hier natürlich noch programmiert werden müssen). 


Deamalstelen & sind durch einen: Bumks zu. Kennzeich. 
nen. EEE 


Es gıbt ım Zusammenhang mit INPUT und GETKEY noch 
weiterführende Informationen; ebenso stellt das Commo- 
dore-BASIC auch andere Eingabeanweisungen zur Ver- 
fügung. Diese Aspekte werden in späteren Lektionen des 
Kurses behandelt, weıl sie ım Augenblick nıcht relevant 
sınd. 


Lektion 3 


Programmverzweigungen 


Mit dem bisherigen Programmteil für die Personendatei 
ist es möglıch, das Hauptmenü auf den Bildschirm zu 
bringen und über die Eingabeanweisung GETKEY einen 
Menüpunkt anzuwählen. Danach beendet der Computer 
das Programm. In dieser Lektion wird gezeigt, wie Iinner- 
halb des Programms in verschiedene Abschnitte ver- 
zweigt werden kann. 

Das Commodore-BASIC stellt für dıe Verzweigung In an- 
dere Programmabschnitte die Anweisungen GOTO (engl. 
»gehe zu) und ON... GOTO (engl. »bei ...gehe zu), wobei 
GOTO meist mit der Hilfsanweisung IF..THEN (engl. 
»wenn...dann«) verknüpft wırd. Diese zunächst etwas 
fremdartig klingenden Kürzel üben ın einem BASIC- 
Programm sehr wichtige und nützliche Funktionen aus, 
die nachfolgend wieder durch direkte Programmıerpra- 
xis demonstriert werden. 

Laden Sıe — sofern Sie über die Begleitdiskette zu die- 
sem BASIC-Kurs verfügen — zunächst das bisherige Pro- 
gramm In den Computer (falls er zwischendurch ausge- 
schaltet war), indem Sıe im Direktmodus den Befehl 


DLOAD "LEKTION 2" [RETURN] 


eingeben bLOAD« = engl. »lade«, »D« = Abkürzung für 
»Diskettenlaufwerk«, also »lade vom Diskettenlaufwerk«). 
LEKTION 2 ıst der Programmname, unter dem das Listing 
auf der Diskette abgespeichert wurde. Ein Programm- 
name darf aus höchstens sechzehn Zeichen bestehen. 
Schalten Sıe das Gerät nun durch gleichzeitiges Drücken 
der Commodore-Taste und [SHIFT] ın den Groß-/Klein- 
schriftmodus um, und geben Sıe den LIST-Befehl, damit 
Sıe das Programm vor Augen haben. Als Programmzeile 
190 erscheint die ın Lektion 2 vorgestellte GETKEY- 
Anweisung. An dieser Stelle wırd die Programmierung 
des Datenverwaltungsprogramms nun fortgesetzt. 

Um den Computer anzuweisen, nach der Eingabe über 
die Tastatur das Programm nicht abzubrechen, sondern 
in einem anderen Programmabschnitt fortzufahren, muß 
einerseits dieser Programmabschnitt existieren und an- 
dererseits mit der GOTO- beziehungsweise ON... GOTO- 


Anweisung dorthin verzweigt werden. Als mögliche Pro- 
grammabschnitte, dıe Sie durch Ihre bisherigen Kennt- 
nisse über BASIC bereits programmieren können, bieten 
sıch die Untermenüs zu den Auswahlpunkten des Haupt- 
menüs an. Denn diese Untermenüs werden ebenso durch 
PRINT-Anweisungen auf den Bildschirm gebracht wie 
das Hauptmenü selbst. Das Untermenü zur Dateneinga- 
be (Auswahlpunkt 1 ım Hauptmenü) kann aus folgenden 
Programmzeilen bestehen: 


200 cam datensingabe 2... i>LD 
210 ımIr 
Je. print mens eeeeeeerrrreeee 


330 print?  ...... Bateneingahemenn” 


360: print. u Neue Datei eröffnen” 
370 print 2 Bestehende Datei erg 


380 print 

ss0.prınt: 3. Eingegebene Daten än 
dern” 

400 print? Hi Eingegebene Daten au 
sdrucken” 

+10: Brint 

4e0 Beine” 5; Zurück zum Hauptmenü 


rn 


au PrFINE” Ihre Eingabe: ” 


Neue Dateı eröffnen 
Bestehende Datei ergänzen 


Eingegebene Daten andern 
Eıingegebene Daten ausdrucken 


Zuruck zum Hauptmenu 


Ihre Eingabe: 


Wenn Sıe nun mit RUN [RETURN] das Programm starten 
und ım Hauptmenü eine Zahlentaste drücken, erscheint 
das Dateneingabemenü. Nach dem Drücken einer weite- 
ren Zahlentaste wird das Programm beendet. 

Damit ıst das Programm um einen Schritt erweitert; es 
entspricht jedoch noch keineswegs den Erwartungen. 
Denn mit der momentanen Version erscheint in Jedem 
Fall das Dateneingabemenü, gleichgültig welche Zahlen- 
taste gedrückt wird. Um dies zu ändern, muß mit den 
oben genannten BASIC-Anweisungen gearbeitet werden. 
Eine korrekte Verzweigung mit der Bedingung »lasse das 
Dateneingabemenü nur beim Drücken von [1] erschei- 
nen«, läßt sıch sowohl mit GOTO, als auch mit ON... 
GOTO erreichen. Im vorliegenden Fall ist die ON... 
GOTO-Anweisung jedoch wesentlich effizienter, weil sich 
mit ıhr in einer einzigen Programmzeile sämtliche Ver- 
zweigungsbedingungen ausdrücken lassen, während mit 
der GOTO-Anweisung für jeden möglıchen Auswahl- 
punkt des Hauptmenüs eine eigene Programmzeile ge- 
schrieben werden müßte. (Weitere Erklärungen hierzu 
folgen auf den nächsten Seiten.) 


206 on a gota 300, 500, 1000, 1500, 2000 250 
2,210 


Durch die GETKEY-Anweisung wird der Wert der 
gedrückten Zahlentaste der Varlablen »a« zugewiesen. 
Eingedeutscht würde diese Programmzeile lauten »Bei A 
gehe zu 300, 500...«. Das bedeutet, nach Drücken einer 
Zahlentaste verzweigt der Rechner zu der Programmzeı- 
le, deren Nummer an der Position hinter der GETKEY- 
Anweisung steht, die dem Wert der gedrückten Taste 
entspricht: wenn [1] gedrückt wird, zur ersten angege- 
benen Programmzeile (in diesem Fall 300), wenn [2] 
gedrückt wird, zur zweiten angegebenen Programmzeile 
(in diesem Fall 500) und so weiter. 

Nun existieren bis auf Zeile 300 dıe angegebenen Pro- 
grammzeilen noch nicht. Bei einem Programmstart mit 
RUN [RETURN] würde aus diesem Grund beı Eingabe 
einer anderen Zahl als 1 dıe Fehlermeldung »undef’d 
statement error ın 200« auf dem Bildschirm erscheinen. 
sıe können dies ruhig einmal ausprobieren, weder dem 
Programm noch dem Computer kann dadurch ein Scha- 
den entstehen. Die Meldung besagt, daß eine nıchtdefi- 
nıerte Zeilennummer aufgerufen wurde. Das Programm 
wird an dieser Stelle abgebrochen. Wird hingegen [1] 
gedrückt, erscheint wunschgemäß das Untermenü zur 
Dateneingabe. 

Mit den nachfolgenden Programmzeilen werden die Un- 
termenüs zu den anderen ÄAuswahlpunkten des Haupt- 


ngabe 


300 rem datenei 


en 


360 print” ie leue Date 


380 Brine lan. 
330 print” 3. Eingegebene Daten än 
Bett 0000000000000 
OB print” .r Eingegebene Daten au 
sdrucken” | | I in 
#10 print 


440 Deime: Ihre Eingabe: ” 
450 getkey a 


Datei chronologisch lesen 
Temporär definierte Daten 
lesen 


Sortierte Datei lesen 
Selektierte Datei lesen 


Zurück zum Hauptmenü 


Ihre Eingabe: 


menüs vervollständigt. Dabei orientieren sich die An- 
fangszeilennummern der Untermenüs jeweils an den Zah- 
len, die ın der ON... GOTO-Anweisung aus Zeile 200 vor- 
gegeben wurden. Wie bereits in Lektion 1 erklärt, 
können alle PRINT-Anweisungen für den Bildschirm 
durch eın Fragezeichen (?) abgekürzt werden. Und auch 


8408 Brink: ....... £hre Eingahe:" 
B50 getkey a 


Eingabe Dateiname”? M 


hier gilt wieder der Hinweis, daß es im Augenblick noch 
nicht notwendig Ist, sämtliche Funktionen zu programmie- 
ren, dıe ın den einzelnen Auswahlmenüs aufgerufen wer- 
den können. 

Von der Programmierung ausgenommen wird vorerst 
das Untermenü zur Datenselektion (Auswahlpunkt 6 im 


Datei chronologisch drucken 
Temporär definierte Daten 
drucken 


Sortierte Datei drucken 
Selektierte Datei drucken 


Zurück zum Hauptmenü 


Ihre Eingabe: 


Hauptmenü), weil hier zunächst eine Reihe von theoreti- 
schen Erklärungen, die erst in Lektion 9 Bedeutung er- 
langen, gegeben werden müßte. Statt des vollständigen 
Untermenüs für die Selektion von Daten wird aus diesem 
Grund hier nur eine REM-Anweisung programmiert (Zei- 
le 2500). 

Hinweis: Wer die Begleitdiskette zu diesem Buch ein- 
setzt, kann sıch das Abtippen des Listings sparen und mit 
dem Befehl DLOAD "LEKTION 3' [RETURN] beziehungs- 
weise dload "lektion 3” [RETURN] das komplette Pro- 
gramm ın den Speicher des Computers einladen. 

Eine Besonderheit bietet die Zeile 1060, weil dort die IN- 
PUT-Anweiısung In einer erweiterten Form programmiert 
wird. In Lektion 2, Seite 27, folgte der INPUT-Anweisung 
unmittelbar dıe Variable, der die Eingabe über die Ta- 
statur zugewlesen wurde. In Zeile 1060 findet sich zwi- 
schen INPUT und der alphanumerischen Variablen noch 
ein Text und ein Semikolon. Das hat folgenden Grund: 
Durch die Übungen in Lektion 2 wissen Sie, daß bei einer 


Daten ausdrucken” 


öl. Datesı chronglogiseh 


.. Temporär definierte 
drucken” 


Sortierte Datei dru 


_Selektierte Datei d 


BUEKEeN: 
1618 print 
3BP0 Brint: 5. Zurück zum Hauptnen 


» 


u 


» 


1640 print" Ihre Eingabe: ” 


alphabetisch sortieren 
nach Beburtstagen sortieren 


nach Wohnorten 
nach definierten Informationen 


Zurück zum Hauptmenü 


Ihre Eingabe: 


INPUT-Anweiısung ım Gegensatz zu GETKEY auf dem 
Bildschirm eın Fragezeichen und der blınkende Cursor 
erscheint. Wenn ım Verlauf eines umfangreicheren Pro- 
gramms häufiger Eingaben gemacht werden müssen, 
dann Ist es hilfreich, wenn nicht nur ein Fragezeichen auf 
dem Bildschirm erscheint, sondern auch eın Hilfstext, der 


2000 rı 


eu70 er; ©. ——n Seburtstagen s 
ortieren” _ ee 
2080 print 

eOS0 print: 3... nach Wohnarten? 
el08 print” 4 nach definierten In 
Formationen” . an 


elIel prink: 5, Zurück zum Hauptmen 


2140 Brint: Ihre Eingabe: ” 
ce150 getkey a 
e500 rem daten selektieren 


erkennbar macht, welche Eingabe ın diesem Moment er- 
forderlich ıst. Der Text, der dabeı zwischen INPUT und 
dem Varlablenname steht, kann wie beı jeder normalen 
PRINT-Anweisung freı gewählt werden. INPUT ist immer 
dann zu verwenden, wenn eine Eingabe aus mehreren 
aufeinanderfolgenden Zahlen oder Zeichen besteht (so 
wıe ın diesem Fall ein einzugebender Dateiname). 

Das Semikolon am Ende des Textes ıst zur korrekten 
Schreibweise einer INPUT-Anweisung, die mit Text kom- 
binıert wird, notwendig (wird das Semikolon fortgelassen 
oder durch eın anderes Satzzeichen ersetzt, Kommt es 
beim Programmablauf zu einer Fehlermeldung und damit 
zum Abbruch des Ablaufs). Im Zusammenhang mit nor- 
malen PRIN'T-Anweisungen kommt dem Semikolon je- 
doch noch eıne wichtige und weiterführende Funktion zu: 


Merksatz 


Wird im Anschluß an die Ausführungszeichen am En- | 
de einer PRINT-Anweisung ein 'Semikolon gesetzt, ER: 
scheint die nächstfolgende Bildschirmausgabe unmit- | 
telbar hinter dem Ausgabetext dieser PRINT-An- 
Nun und nicht erst i in der nächsten Zeile. 33 


Beispiel: 


1 PRINT "ANFANGS"; 
2 PRINT "ERKLÄRUNGEN" 


RUN [RETURN] 


ANFANGSERKLÄRUNGEN 


Auf diese Weise lassen sıch längere Textpassagen mit 
Hilfe von PRINT lückenlos aneinanderfügen. Dadurch 
kann dıe Beschränkung auf maximal 160 Zeichen für eine 
BASIC-Programmzeile gewissermaßen umgangen wer- 
den. Auch die anderen Satzzeichen, wie Komma, Doppel- 
punkt... spielen ın der BASIC-Programmierung wichtige 
Rollen. Im Verlauf der folgenden Lektionen wird darauf 
noch eingegangen. 

Einen ganz neuen Befehl enthält die Programmzeile 210, 
in die der Rechner verzweigen soll, um den Programm- 
ablauf zu beenden (Auswahlpunkt 7 ım Hauptmenü). Ent- 
sprechend seıner Funktion lautet er einfach END (engl. »- 
Ende«). Nach seiner Ausführung erscheint dıe bekannte 
READY-Meldung, das heißt der Computer schaltet von 
der Programmebene zurück ın den Direktmodus. 

sıe können nun das Programm probehalber einmal mit 
RUN [RETURN] starten und einen der möglichen Aus- 
wahlpunkte eingeben. Der Rechner wird dann — wenn 
Ssıe alle Zeilen richtig abgetippt haben — zu dem 
gewünschten Untermenü verzweigen. Sollte statt dessen 
das Programm durch eine Fehlermeldung abgebrochen 
werden, so kann es sıch ın dieser Phase der Programmie- 
rung nur um einen einfachen Schreibfehler handeln, den 
der Computer mit »syntax error In xxx« (engl. »Schreib- 
fehler ın Zeile xxx«) meldet. Vergleichen Sıe die ange- 
gebene Zeile mit dem Listing in diesem Buch. Dann wer- 
den Sıe sicher einen kleinen Eingabefehler entdecken. 
Korrigieren Sıe ıhn einfach, indem Sıe entweder die ge- 
samte Zeile neu schreiben oder mit Hilfe der Cursor- 
Tasten die fehlerhafte Stelle anfahren und die Änderung 
direkt ın der Programmzeile anbringen. 

Wenn Sıe (eventuell nach einem Programmdurchlauf) 
den Befehl LIST [RETURN] geben, rollt das komplette 
Programm über den Bildschirm. Das ist zwar eindrucks- 
voll, doch zum Betrachten eines einzelnen Abschnitts we- 
nıg hilfreich. Natürlich bietet BASIC auch hier eine 
Lösung. Ähnlich wie sich die INPUT-Anweisung durch 
einen eingefügten Text ergänzen läßt, erlaubt auch der 
LIST-Befehl verschiedene Zusatzangaben. Hier die 
zusammengefaßten Möglichkeiten! 


Sie können die einzelnen LIST-Möglichkeiten zur prakti- 
schen Übung beliebig oft eingeben. In jedem Fall aber 
sollten Sıe dıe aktuelle Programmversion auf Diskette ab- 
speichern. Denn es kann immer wileder einmal vorkom- 
men, daß durch eıne Stromschwankung, durch eine un- 
achtsame Berührung empfindlicher Kontakte ım rück- 
wärtıgen Gerätebereich oder durch andere Umstände 
eine kurzzeitige Unterbrechung eintritt, dıe das völlige 
Löschen aller Programmzeilen ım Speicher zur Folge hat. 
In diesen Fällen ıst dıe Programmierarbeit umsonst ge- 
wesen. 

Zur Sicherung dieses Programms wird der Befehl 


DSAVE "LEKTION 3" [RETURN] 


gegeben bSAVE« engl. »sichernd. »D« steht wıe beı 
DLOAD als Abkürzung für »Diskettenlaufwerk«. Wer al- 
lerdings dıe Begleitdiskette zu diesem Buch besıtzt, muß 
das Programm nicht abspeichern, weil es sıch bereits un- 
ter diesem Programmnamen auf der Diskette befindet. 


stellt (Beispiet DSAVE "SLEKTION 3”, so wird: In. . 
5SEIE.: Fall die neue Version een und Se alte | 
a x ee 


Nachdem das Programm gesichert Ist, soll durch einige 
praktische Beispiele auf die Funktionsweise der GOTO- 
Anweisung eingegangen werden, die — wie zum Beginn 
der Lektion angedeutet — häufig mit der Hılfsanweisung 
IF... THEN verwendet wird. 

In Zeile 200 wurden durch ON...GOTO dıe Bedingungen 
für die Verzweigungen in andere Programmabschnitte 
geschaffen. Exakt die gleichen Funktionen lassen sıch mit 
IF... THEN GOTO erreichen. Allerdings müßte hıer für Je- 
den Auswahlpunkt des Hauptmenüs eine eigene Pro- 
grammzeile eingegeben werden: 


e10 if a=-2 then gato S00 
Be iE a=3 then goto 1000 
ce30 if a=4 then goto 1500 


E40 if a=5 then goto 2000 


250 if a“5 then göto 2500 
E60 if a=r?7 then goto 270 
e7/O end 


Eingedeutscht würden die Programmzeilen lauten: 
»Wenn dıe gedrückte Taste dıe Zahl 1 trägt, dann ver- 
zweige zur Programmzeile 300«, »Wenn die gedrückte Ta- 
ste dıe Zahl 2 trägt, dann verzweige zur Programmzeile 
500«... SIe können auch hier probehalber einen Pro- 
grammstart mit RUN [RETURN] machen. Nach der ent- 
sprechenden Wahl ım Hauptmenü wird auch hierbei der 
Rechner zum gewünschten Programmabschnitt verzweı- 
gen. Es ıst aber offensichtlich, daß dıe Verwendung der 
IF...THEN GOTO-Anweisungen für die Programm- 
verzweigungen wesentlich aufwendiger zu programmle- 
ren sınd als dıe ON... GOTO-Anweisung. Trotzdem gibt es 
natürlich auch für GOTO eıne sinnvolle Einsatzmöglich- 
keit: Angenommen, statt der zulässigen Eingaben von | 
bıs 7 ım Hauptmenü wurde aus Versehen die Taste [8] 
gedrückt. Für diesen Wert gıbt es weder beı der ON- 
..GOTO- noch bei der IF... THEN GOTO-Anweisung eine 
entsprechende Bedingung. Der Rechner setzt ın diesem 
Fall das Programm ın der nächsten möglıchen Pro- 
grammzelle fort. Das ıst hier die Zeile 270 mit dem Befehl 
END. Um nun eine Möglichkeit zu schaffen, bei einer 
Fehleingabe dieser Art das Programm ohne Abbruch 
fortzusetzen, kann als Programmzeile 265 die Anweisung 
GOTO 190 gegeben werden. 


265 goto 180 


Diese Ergänzung sorgt dafür, daß der Computer beı 
einer unzulässigen Zahl zur Zeile 190 zurückkehrt und 
wiederum auf eine Eingabe wartet. Auch in das Original- 
Listing, das unter dem Dateinamen "LEKTION 3’ abge- 
speichert wurde, läßt sıch die Rückführung zur Zeile 190 
einfügen; hier kann diese Anweisung unter der Zeilen- 
nummer 205 eingegeben werden. 

Im Verlauf der folgenden Lektionen werden noch wei- 
tere nützliche Anwendungsmöglichkeiten der GOTO- 
Anweisung aufgezeigt. 

Zunächst aber ıst beim Aufbau dieses Datenverwal- 
tungsprogramms ein gewisser Endpunkt erreicht. Denn 
für die einzelnen Auswahlpunkte der Untermenüs 
müßten nun wiederum durch ON... GOTO-Anweisungen 
Bedingungen für Programmverzweigungen entstehen, ın 
denen die notwendigen Funktionen ausgeführt werden. 
Diese Arbeit ist aber nicht mehr ohne weiteres über- 
schaubar, so daß ein Hilfsmittel zur Strukturierung der 
folgenden Programmabschnitte zur Hand genommen 
werden muß. In früheren Zeiten nahm man für diesen 
Zweck das sogenannte Flußdiagramm, das aus einer 
Reihe von grafıschen Symbolen bestand, ın die der 
gewünschte Ablauf eines Programms eingetragen wur- 
de. Inzwischen hat sıch jedoch das leichter verständliche 
Struktogramm durchgesetzt, das ähnlich wıe ein Flußdia- 
gramm den gewünschten Ablauf eines Programms wIle- 
dergibt. 

In der nachfolgenden Lektion 4 dieses BASIC-Kurses 
wırd der Aufbau eines Struktogramms ausführlich erläu- 
tert. 


Lektion 4 


Das Struktogramm 


Bei umfangreichen BASIC-Programmen, die ohne theore- 
tische Vorüberlegungen bezüglich des Ablaufs und der 
Anordnung einzelner Programmabschnitte eingegeben 
werden, besteht dıe Gefahr, den Rechner häufig zu Ver- 
zweigungen anzuweisen, die sich bei einer klaren Pro- 
grammstruktur vermeiden ließen. 

Jede Verzweigung (auch »Sprunganweisung«) kostet Zeit. 
Denn bei einer Anweisung wie GOTO 2500 beginnt eine 
Interne Zählroutine mit Programmzeile O und durchsucht 
alle vorhandenen Zeilennummern, bis die angegebene 
Zeile für dıe Fortsetzung des Programmablaufs gefunden 
ıst. Dieser Vorgang vollzieht sıch zwar sehr schnell (in 
Bruchteilen von Sekunden) und ist bei einem kurzen Pro- 
gramm praktisch nıcht spürbar. Bei einem längeren Pro- 
gramm mit zum Beispiel 200 oder 300 Programmzeilen 
machen sıch ständige Sprunganweiısungen ın der Ablauf- 
geschwindigkeit des Programms Jedoch bemerkbar. Ne- 
ben den Verzweigungen gibt es noch weitere Programm- 
strukturen, die dıe ÄAblaufgeschwindigkeit erhöhen oder 
aber vermindern können. 

Um einerseits dıe Effizienz eines BASIC-Programms zu 
gewährleisten und andererseits dıe Arbeit des Program- 
mierens zu erleichtern, Ist es sinnvoll, dıe Struktur eines 
Programms vorab zu überdenken und auf dem Papier zu 
skizzieren. Eine leicht verständliche und weit verbreitete 
Darstellungsmethode für BASIC-Programmabläufe ist das 
sogenannte Struktogramm, das auch »Nassı-Schneider- 
man-Diagramm« genannt wird. 

Ein Struktogramm besteht aus der Aneinanderreihung 
verschiedener Blöcke (Strukturblöcke), ın die stichwort- 
artıg dıe einzelnen Funktionen und Programmabläufe ein- 
getragen werden. Man unterscheidet zwischen dreı 
Strukturarten: 


@ Sequenz 


oo 


Für jede Strukturart gibt es wiederum verschiedene Sinn- 
bilder, je nachdem, welche Programmfunktion darge- 
stellt werden soll. 

Die Sequenz symbolisiert Operationen (zum Beispiel 
PRINT-Anweisungen) und den Aufruf von Unterprogram- 
men (auf Unterprogrammtechnik wird ab Lektion 6 einge- 
gangen). 


Operation 


Der Strukturblock für die Auswahl symbolisiert alle Ver- 
zweigungen (zum Beispiel IF..THEN GOTO und ON- 
..GOTO). Hier gibt es drei verschiedene Sinnbilder (sie- 
he Seite 44): 

Unter »Fehlerausgabe« ıst ein spezieller Programmab- 
schnitt zu verstehen, in dem Texte für eventuell auftreten- 
de Fehler enthalten sind. Diese können durch PRINT- 
Anweisungen In den Jeweiligen Situationen auf den Bild- 
schirm gebracht werden; zum Beispiel wenn beı Eingabe 
der Zahl 8 ım Hauptmenü der Rechner zur Zeile 190 
zurückkehrt, wäre folgender Text denkbar: »Diese Eınga- 
be ıst nıcht möglıch. Nur Taste [1] bıs [7] drücken.« Da es 
während eınes Programmablaufs natürlich mehrere Ar- 
ten von Fehlern geben kann, muß mit Hilfe einer speziel- 
len Routine ermittelt werden, um welchen Fehler es sıch 
aktuell handelt, damit nur der hierfür zutreffende Hilfs- 
text auf den Bildschirm gebracht wird. Lektion 6 dieses 
BASIC-Kurses geht unter anderem auf diese Fehlerer- 
mittlung eın. 

Die Schleife schließlich (zum Beispiel die fortwährende 
Rückführung ın eine bestimmte Programmzeile bei einer 
Fehleingabe) kennt vier verschiedene Sınnbilder (siehe 
seite 45): 


Grafische Darstellung 
für Operationen 


Erste Darstellungsform 
für den Aufruf 
eines Unterprogramms 


Zweite Darstellungsform 
für den Aufruf 
eines Unterprogramms 


Auswahl 
für Zweifachverzweigung 


Auswahl 
für Mehrfachverzweigungen 


Mehrfachverzweigung 
mit Fehlerausgabe 


Bedingung 


Strukturblock Strukturblock 


Strukturblock Strukturblock Strukturblock 


Strukturblock Strukturblock Fehlerblock 


Bei einer Schleife mit Anfangsbedingung wird ein Struk- 
turblock (Sequenz, Auswahl oder zweite Schleife) so lan- 
ge durchgeführt, bis eine bestimmte Bedingung erfüllt ıst. 
Die Überprüfung dieser Bedingung findet jeweils vor 
Durchführung des Strukturblocks statt. Eine Schleife mit 
Endbedingung funktioniert ebenso, jedoch findet hier die 
Überprüfung jeweils nach Durchführung des Struktur- 
blocks statt. 

schleifen mit Abbruchbedingungen werden so lange 
durchgeführt, bis eine bestimmte Bedingung (zum Beı- 


Anfangsbedingung 


Strukturblock 


Strukturblock 


Endbedingung 


Strukturblock 


Abbruchbedingung 


Strukturblock 


Strukturblock 


Abbruchbedingung 


Strukturblock 


spiel dıe Eingabe eınes Auswahlpunktes aus einem 
Menü) zum Abbruch der Schleife oder zum Abbruch des 
gesamten Programms führt. 

Durch die bisherigen Programmiererfahrungen mit dem 
Datenverwaltungsprogramm haben Sıe — bıs auf Unter- 
programmtechnik — bereits alle Programmstrukturen 
kennengelernt, dıe sıch in einem Struktogramm darstel- 


Schleife 
mit Anfangsbedingung 


Schleife 
mit Endbedingung 


Erste Darstellungsform 
für Schleife 
mit Abbruchbedingung 


Zweite Darstellungsform 
für Schleife 
mit Abbruchbedingung 


eingeben 


len lassen. Daher können die hier gezeigten theoreti- 
schen Sinnbilder gleich zur praktischen strukturierten 
Darstellung des Listings auf Seite 158ff. herangezogen 
werden. 


Hauptmenü 


Struktogramm der bisherigen Version des Datenverwaltungsprogramms 


Es ıst leicht zu erkennen, daß die bisherigen Programm- 
abschnitte der Personendatei klar strukturiert sind und 
ohne unnötige Verzweigungen auskommen. Das Haupt- 
menü und die Untermenüs werden als einfache Operatio- 
nen dargestellt. Bei der Eingabe (Programmzeile 190) 
handelt es sich um eine Schleife mit Mehrfachverzwei- 
gung, weil sieben Punkte zur Auswahl stehen. Der Einga- 
bewert sieben stellt dabei eine Abbruchbedingung dar, 
die zur Beendigung des Programmablaufs führt. Eine Ein- 
gabe über sieben verzweigt zurück zur Eingabezeile 190, 
weil diese einen unzulässigen Zahlenwert darstellt. 

Beı allen folgenden Lektionen werden bei der Eingabe 
von neuen Programmabschnitten Struktogramme voran- 
gestellt, so daß die Übersichtlichkeit des gesamten Pro- 
gramms auch weiterhin gewahrt bleibt. 


Lektion 5 


Bildschirmgrafik 


In den bisherigen Lektionen des BASIC-Kurses haben Sie 
gelernt, Auswahlmenüs auf den Bildschirm zu bringen, 
Verzweigungen durch Eingaben über die Tastatur zu pro- 
grammieren und einen BASIC-Programmablauf in einem 
Struktogramm bildlich darzustellen. Die grafische Oestal- 
tung der einzelnen Bildschirme für Hauptmenü und Un- 
termenüs beschränkte sıch dabei auf das unbedingt Er- 
forderliche. 

Der Commodore 128 bietet jedoch eine Reihe von 
Möglichkeiten attraktiver Bildschirm- und Farbgestal- 
tung, auf die ın dieser Lektion eingegangen wird. 

Die erste neue Anweisung, die hierfür zur Anwendung 
kommt, lautet COLOR (engl. »Farbe«). Die COLOR- 
Anweısung benötigt folgende Angaben: 


Als Farbquelle stehen ım Textbetrieb (normaler Modus 
beim Einschalten des Computers) der Rand, der Hin- 
tergrund (Hauptbildschirmfläche) und die Textzeichen 
zur Verfügung. Diesen Farbquellen sind folgende Codes 
zugewiesen! 


0 = Hintergrund b bei i 90. Zeichen Bildschirm 
@4=-Rand 

. e3- Textzeichen e => 

2 es . ‚Hintergrund. bei 80. Zeichen: Bildschirm Be 


. 


Die Codes | bıs 3 stehen für hochauflösenden Grafikbe- 
tnneb (Zeichnen von Diagrammen, Kreisen, Figuren und 
äahnlıchem) zur Verfügung, der im zweiten Teil des Bu- 
ches ausführlich behandelt wird. 


Für dıe Farbgestaltung von Hintergrund, Rand und Text- 
zeichen stehen insgesamt sechzehn Farben zur Auswahl, 
denen ebenfalls jeweils ein Code zugewiesen ist: 


Geben Sıe (wenn Sıe mit 40-Zeichendarstellung arbeiten) 
als Beispiel für die Wirkung von COLOR ım Direktmodus 
folgende Anweisung ein: 


COLOR 0,2 [RETURN] 


Hierauf färbt sıch der Hintergrund (Hauptbildschirm- 
fläche) sofort weiß. Falls Sıe mit 80-Zeichendarstellung ar- 
beiten, muß statt COLOR 0,2 dıe Anweisung COLOR 6,2 
gegeben werden. Sıe können nun nach eigener Lust und 
Laune die Farben für Hintergrund, Rand und Textzeichen 
verändern (zum Beispiel COLOR 4,1 für einen schwarzen 
Rand). Dabeı sollten Sıe Jedoch darauf achten, daß die 
Farben für Hintergrund und Textzeichen nicht identisch 
sind, weil sonst die Textzeichen nıcht mehr sıchtbar sınd. 
Auch für Besitzer eines Schwarz/ Weiß-Bildschirms Kön- 
nen Farbangaben interessant sein. Hier zeigen sich die 
Farben ın unterschiedlichen Grautönen, so wie es auch 
beı normalem Fernsehempfang der Fall ıst. 

Die COLOR-Anweisung läßt sich sowohl ım Direktmodus 
als auch auf Programmebene programmieren. Normaler- 
weıse werden ın einem Listing dıe Farbangaben zu Be- 
gınn des Programmablaufs gemacht. Beim vorliegenden 
Datenverwaltungsprogramm (das Sie wieder mit DLOAD 
"LEKTION 3' [RETURN] ın den Arbeitsspeicher des 
Computers laden können) bietet sich zum Beispiel Zeile 
15 zur Einfügung einer COLOR-Anweisung an. 


i5 chlor 0,8 


Die obenstehende COLOR-Anweiısung Ist natürlich nur 
eın Vorschlag. Wer mit 80-Zeichendarstellung arbeitet, 
muß ın jedem Fall statt O eine 6 als Farbauelle für den 


Hintergrund eingeben. Die Farbe selbst können Sie Je- 
doch frei nach eigenem Geschmack wählen. 

An dieser Stelle scheint ein gewisses Problem zu entste- 
hen, denn wenn man nicht nur den Hintergrund, sondern 
auch den Rand und die Textzeichen farblich verändern 
möchte, muß man sehr kleinschrittige Zeillennummernab- 
stände eingeben (zum Beispiel Zeile 15 für Hintergrund, 
Zelle 16 für Rand und Zeile 17 für die Textzeichen). Das 
ist theoretisch natürlich möglich, praktisch jedoch nicht 
erforderlich. 

BASIC bietet die Möglichkeit, mehrere Befehle oder An- 
weiısungen In einer einzigen Programmzeile zusammenzu- 
fassen. Der »Trick«, wenn man es so nennen will, besteht 
darın, dıe einzelnen Eingaben durch Doppelpunkt (:) zu 
trennen. Wıll man zum Beispiel drei COLOR-Anweı- 
sungen hintereinander programmieren, könnte die be- 
treffende Zeile folgendermaßen aussehen: 


iS galor DD, B:egnlar =, 13: 68lor 5,12 


Nach RUN [RETURN] ıst das Ergebnis sichtbar. Auch hıer 
sınd die einzelnen Farbangaben nur als Beispiel zu ver- 
stehen. Je nach verwendetem Bildschirm können andere 
Farbkombinationen angenehmer wirken. Hier sollten Sıe 
einige Versuche machen. 

Der Doppelpunkt zur Zusammenfassung von Befehlen 
und Anweisungen In Programmzeilen erleichtert dıe BA- 
SIC-Programmierung, weil nicht für jede Eingabe eine 
neue Zeilennummer definiert werden muß. Ein weiterer 
Vorteil ıst, daß dıe Ablaufgeschwindigkeit eines Pro- 
gramms gesteigert wird, wenn die Anweisungen komprI- 
miert, also durch Doppelpunkte ın den Zeilen zusammen- 
gefaßt sınd. Allerdings sollte man aus diesem Grund 
nicht die Übersichtlichkeit vernachlässigen. Bei den 
PRINT-Anweisungen für die Menüs ıst es zum Beispiel 
sınnvoller, für Jede Bildschirmzeile eine Programmzeile 
zu definieren, weıl man hierbei besser erkennen kann, 
welche Schreibstellen untereinander stehen müssen. Die 
bisherige Programmierung des Datenverwaltungspro- 
gramms ıst somit völlıg korrekt und zweckentsprechend. 
Darüber hınaus bleiben in manchen Fällen die Eingaben 
nach einem Doppelpunkt unwirksam. Dies gilt zum Beı- 
spiel für die ON... GOTO-Anweisung ın Zeile 200. Wenn 
man hıer ım Anschluß an die Zahl 210 einen Doppelpunkt 
und eine Anweisung ergänzen würde (zum Beispiel 200 
on a goto 300,500,1000,1500,2000,2500,210:color 0,1), so 
bliebe die erwünschte Wirkung aus, weil das Programm 
nach der Eingabe über die Tastatur (Programmzeile 190) 
sofort ın den entsprechenden Programmabschnitt ver- 
zweigt. 


Die Verwendung des Doppelpunktes zur Zusammenfas- 
sung mehrerer Befehle und Anweisungen bietet sıch an, 
wenn zum Beispiel Variablen definiert (etwa 10 
A=100:A$="ANFANGS’:B$="ERKLÄRUNGEN’) oder 
wıe oben mehrere COLOR-Anweisungen hintereinander 
gegeben werden. Im weiteren Verlauf der Programmıe- 
rung des Datenverwaltungsprogramms wird die Zeilen- 
komprimierung jeweils in den Abschnitten, wo sie sınn- 
voll ıst, angewandt. 


.. felgenden Eingaben. 


Neben diesen farblichen Gestaltungsmöglichkeiten läßt 
sıch auch die grafische Aufmachung des Bildschirms we- 
sentlich attraktıver programmieren. Bisher wurden die 
Überschriften der Menüs durch einfache Bindestriche 
von den Auswahlpunkten getrennt. Eine visuell stärkere 
Wirkung hätte hingegen eın durchgezogener Balken 
oder ein Rahmen. 

Zwar bietet der Zeichenvorrat des Commodore 128 eine 
Reihe von Grafiksymbolen (sie sind auf den Vor- 
derflächen der Tasten aufgedruckt); diese Symbole las- 
sen sıch Jedoch nur aufrufen, wenn der Computer ım rei- 
nen Großschriftmodus arbeitet, also jenem Modus, der 
beim Einschalten aktıv ıst. Im Groß-/Kleinschriftmodus, 
der für das Datenverwaltungsprogramm notwendig ist, 
lassen sıch nur noch einige wenige Grafikzeichen aufru- 
fen (eine entsprechende Tabelle finden Sıe im Anhang D 
der Bedienungsanleitung). 

Natürlich gibt es auch hier eine Lösung. Denn ebenso 
wıe es ın der Fotografie »Positive« und »Negative« gıbt, 
lassen sıch beim Commodore 128 alle Zeichen 
gleichgültig in welchem Modus — sowohl positiv als auch 
negatıv (invertiert) auf dem Bildschirm darstellen. 

Genau wie beı den bisher verwendeten positiven Zei- 
chen werden ıinvertierte Zeichen durch PRINT- 
Anweisungen auf den Bildschirm gebracht. Es müssen le- 
diglich entsprechende Zusatzangaben gemacht werden. 
Hierfür stehen zwei unterschiedliche Möglichkeiten zur 
Verfügung, die jedoch exakt die gleiche Wirkung haben, 
nämlich Zeichen ınvertiert darstellen: 


__@ Programmierung mit Hilfe der CONTROL-Taste _ 


Zunächst zur CONTROL-Taste (engl. »Kontrolle«, »Be- 
fehle). Mit ıhr werden in Kombination mit anderen Tasten 
Funktionen oder Befehle aufgerufen, dıe mit den norma- 
len Zeichen, Zahlen oder Satzzeichen nichts zu tun haben. 
So erklingt zum Beispiel beim gleichzeitigen Drücken von 
[CONTROL] und [G] ein harfenähnlicher Ton. Ebenso 
kann man mit Hilfe von [CONTROL] und [9] die Funktion 
»Negativschrift einschalten« und mit [CONTROLHO] »Ne- 
gatıvschrift ausschalten« aktivieren. Diese Funktionsakti- 
vierung muß beı einer PRINT-Anweisung jeweils inner- 
halb der Anführungszeichen zum Beginn und Abschluß 
des T’extes gegeben werden. Geben Sıe dazu im Direkt- 
modus folgende Anweisung ein: 


print"[CONTROL]-[9]Probetext[CONTROL]-[O]" 
[RETURN] 


Während der Eingabe erscheint beim gleichzeitigen 
Drücken von [CONTROL] und [9] ein kleines negatives »r« 
vor dem Text, während es beim Drücken von [CON- 
TROL] und [0] ein großes negatives »R« ist. Nach Betäti- 
gen der RETURN-Taste zeigt der Bildschirm dann das 
Wort »Probetext« ın Negativschrift. 

Der Einsatz der CONTROL-Taste bietet jedoch noch weı- 
tergehende Möglichkeiten. So können damit einzelne Zeı- 
chen oder Texte ın unterschiedlichen Farben dargestellt 
werden, also Farben, dıe unabhängig von denen erschei- 
nen, die durch die COLOR-Anweisung vorbestimmt sınd. 
Hierzu wird die CONTROL-Taste ın Verbindung mit einer 
der Zahlentasten [1] bıs [8] gedrückt. Die erscheinenden 


Positive und negative 
Darstellung eines Zeichens 


Farben stimmen mit den Farbcodes überein, die in Lek- 
tion 5 aufgelistet sind. Überdies sind die Farben auf den 
Vorderseiten der Zahlentasten aufgedruckt. (Die Farben 
9 bis 16 werden durch Kombination mit der Commodore- 
Taste aufgerufen.) Geben Sie zur praktischen Übung fol- 
gende Anweisung eın: 


print! [CONTROL]-[2]Probetext[Commodore-Taste]-[4]" 
[RETURN] 


Der Text erscheint daraufhin ın weißer Farbe, während 
sich bei der Eingabe [CONTROLH2] als negatives »e« 
und [Commodore-Taste}{4] als negatives »W« zeigt. Die 
READY-Meldung und der Cursor haben hingegen die ur- 
sprünglich gewählte Farbe (in diesem Fall Dunkelgrau) 
behalten. 

Mit Hilfe von [CONTROL] zur Invertierung und Farbge- 
bung von Zeichen und der Commodore-Taste zur Farb- 
gebung einzelner Zeichen und Texte ist es auch möglich, 
Negativschrift und Farbverschiedenheit gleichzeitig zu 
programmieren. Versuchen Sıe folgende Eingabe: 


print" [CONTROL]-[9] [CONTROL]-[2]Probetext 
[Commodore-Taste]-[4] [CONTROL]-[0]" [RETURN] 


Nun erscheint das Wort »Probetext« weiß und invertiert. 
Es ıst möglıch, sämtliche sechzehn Farben auf diese Weı- 
se positiv und negativ gleichzeitig auf dem Bildschirm 
darzustellen. Die grafischen Ausdrucksformen zum Beı- 
spiel für ein Menü werden dadurch verbessert. 

Wıe anfangs erwähnt, erlaubt die Commodore-Pro- 
grammierung neben dem Einsatz der CONTROL-Taste 
zur Invertierung und Farbgebung sowie der Commodo- 
re-Taste zur Farbgebung, auch mit der Funktion CHR$ 
(engl. Abkürzung für »Character«, deutsch »Zeichen«), Ne- 
gativzeichen In gewünschten Farben zu programmieren. 
In ıhren Wirkungen sınd beide Anwendungen Identisch. 
Auf dıe Vor- und Nachteile wird etwas weiter unten ein- 
gegangen, weil zunächst deutlich gemacht werden muß, 
in welchem Zusammenhang die Funktion CHR$ (ausge- 
sprochen CHR-String) zu sehen ist. 

Alle Zeichen aus dem Zeichenvorrat des Commodore- 
Computers haben — ebenso wie die Farben — einen 
bestimmten Code. Zum Beispiel ıst dem Buchstaben »A« 
der Code 65 zugewiesen, dem »B« der Code 66, dem »C« 
der Code 67 und so weiter. Diese Zahlenwerte sind je- 
doch nicht willkürlich vom Hersteller bestimmt worden, 
vielmehr entsprechen sıe einer internationalen Norm, 


dem sogenannten ASCII-Code 6American Standard 
Code for Information Interchange«, engl. »Amerikanı- 
scher Standardcode für Informationsaustausch«). Diese 
Normierung hat viele Vorteile; zum Beispiel ist es durch 
sie möglıch, an einen Computer Drucker unterschiedlıi- 
cher Fabrıikate anzuschließen, weil auch die Drucker auf 
das ASCII-Codesystem eingestellt sind. Allerdings sind 
von den Insgesamt 255 möglichen ASCII-Werten nur die 
Codes von 32 bis 127 international genormt. Hier finden 
sıch dıe ganz normalen Zeichen wie A, B, C..., Zahlen und 
Satzzeichen, über die jede Tastatur verfügt. Die übrigen 
ASCII-Codes werden von Hersteller zu Hersteller unter- 
schiedlich genutzt. Auf diese Weise ist zu erklären, war- 
um der Zeichenvorrat des Commodore sowohl über die 
üblichen Schriftzeichen als auch über commodorespezifi- 
sche Grafikzeichen verfügt. Neben diesen Grafikzeichen 
gibt es Commodore-Codes, die den Aufruf bestimmter 
Befehle oder Anweisungen zur Folge haben. So bewirkt 
zum Beispiel der Code 147 das Löschen des Bildschirms. 
Wenn Sıe bisher die Tastenkombiınation [SHIFT]ITCLR 
HOME) gedrückt haben, um den Bildschirm zu löschen, 
wurde hierbei der Code 147 eingegeben, der im Compu- 
ter eine entsprechende Routine aufruft. Ebenso ent- 
spricht der Code 7 dem Aufruf der Tastenkombiınation 
[ICONTROLHCG], mit der Sie einen Ton erzeugen können. 
Wıl man nun anstelle der CONTROL-Tastenkombina- 
tionen die Codes direkt programmieren, muß dem Com- 
puter erkennbar gemacht werden, daß es sich um den 
Aufruf einer Funktion handelt und nicht etwa um den Zah- 
lenwert, den der Code darstellt. Hierzu wird die 
CHRS$-Funktion eingesetzt. Sie können zum Beispiel an- 
stelle des Drückens der Tasten [SHIFTH-CLR HOME] 
oder der Anweisung SCNCLR den Bildschirm durch die 
Anweisung PRINT CHR$(147) [RETURN] löschen oder 
aber anstelle von [CONTROLHG] auch mit PRINT 
CHR$(7) [RETURN] den genannten Ton erzeugen. 

Der Code zum Einschalten der Negativschrift ist 18, zum 
Ausschalten 146. Für dıe Farben qilt folgende Tabelle. 
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Um wıe ım zuvor beschriebenen Beispiel das Wort »Pro- 
betext« mit Hilfe von CHR$-Funktionen auf dem Bild- 
schirm negativ erscheinen zu lassen, ist folgende Einga- 
be notwendig: 


print chr$(18)"Probetext"chr$(146) [RETURN] 


Es ist auch möglich, zum besseren Überblick ein Semiko- 
lon zwischen die CHR$-Funktion und den Text zu setzen 
(also chr$(18);''Probetext’';chr$(146)). Für eine einwand- 
freie Ausführung ist dies Jedoch nicht notwendig. Soll nun 
auch hıer das Wort nıcht nur Invertiert, sondern auch an- 
dersfarbig erscheinen (in diesem Fall weiß), muß folgen- 
de Eingabe gemacht werden: 


print chr$(18)chr$(5)"Probetext!"chr$(146) 
chr$(151) [RETURN] 


Der Effekt ıst, wie Sıe [feststellen können, exakt der gleı- 
che wie beı der Eingabe mit [CONTROL]: Das Wort »Pro- 
betext« erscheint weıß und Invertiert. Auf die Frage, wel- 
che Eıngabeform vorteilhafter ıst, kann folgende Antwort 
gegeben werden: 


Somit bleibt es jedem Anwender selbst überlassen, für 
welche Eıngabeform er sıch bei der Programmierung 
von Sonderfunktionen entscheidet. Es sollte Jedoch noch 
bedacht werden, daß nur wenige Drucker ın der Lage 
sind, die Iinvertierten Zeichen des Commodore auszu- 
drucken, weil sıe nıcht dem internationalen ASCII-System 
entsprechen. 


Der Ausgangspunkt für diese Lektion war das Bemühen, 
die Bildschirmgestaltung des Datenverwaltungspro- 
gramms attraktıver zu machen. Es wurde dabei festge- 
stellt, daß der Zeichenvorrat des Commodore 128 zwar 
über eıne Reihe von Grafiksymbolen umfaßt, diese je- 
doch nıcht ım Groß-/Kleinschriftmodus verfügbar sind. 
Mit Hilfe von Negativschrift und Farbveränderungen 
konnten Jedoch trotzdem visuell reizvolle Ergebnisse er- 
zielt werden. 

Die Technik des Invertierens von Zeichen kann aber 
auch benutzt werden, um einen durchgezogenen Balken 
auf den Bildschirm zu bringen. Dies bietet sich zum Bei- 
spiel zur optisch schöneren Trennung von Menü-Über- 
schriften und den darunterstehenden Auswahlpunkten 
an. Das Prinzip ıst dabei ganz einfach: Invertiert man ein 
»Leerzeichen« (also einen Wortzwischenraum), erhält man 
ein »Vollzeichen«. Mehrere dieser Zeichen aneinander- 
gereiht ergeben einen durchgezogenen Balken. Versu- 
chen Sıe dazu folgende Eingabe: 


print chr$(18)" “chr$(146) [RETURN] 


Sogleich erscheint ein fünfzehn Zeichen langer, durchge- 
zogener Balken auf dem Bildschirm. Natürlich läßt sich 
dieser Balken durch entsprechende CHR$-Funktionen 
auch andersfarbig darstellen. 

Wenn nun die bisherige Version des Programms (das 
sıch im Arbeitsspeicher des Computers befinden sollte) 
ım Hinblick auf eine bessere Bildschirmgestaltung verän- 
dert werden soll, so müssen nur wenige Programmzeilen 
umgeschrieben werden. Denn es ıst nicht erforderlich, 
sämtliche Bındestriche zu löschen und durch invertierte 
Balken zu ersetzen: Da diese Zeilen alle ıdentisch sınd, 
genügt es, zum Programmbegınn eine Variable zu defı- 
nıeren und danach immer nur diese Variable der PRINT- 
Anweisung folgen zu lassen (vergleiche Lektion 1, Seite 
20). Diese Variable wird in der neu einzufügenden Pro- 
grammzeille 25 definiert, und die betreffenden Zeilen mit 
den Bıindestrichen werden wie nachfolgend überschrie- 
ben: 


eingeben 
lesen 


Daten ändern 
ausdrucken 


Daten sortieren 
Daten selektieren 
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Programm beenden 
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Nach RUN [RETURN] sehen Sıe das Ergebnis auf dem 
Bildschirm. Auch hier gilt natürlıch wıeder, daß die Farb- 
definition in Zeile 25 nach eigenem Geschmack abgeän- 
dert werden kann. Sollten Sıe dıe Begleitdiskette zu die- 
sem Buch einsetzen, können Sie sich die Änderung des 
Listings ganz sparen. Sıe finden dort unter dem Dateina- 
men »LEKTION 5« das komplett geänderte Listing. Um 
die Wirkung der neuen Bıldschirmgrafik zu sehen, 
müssen Sie lediglich den Befehl DLOAD "LEKTION 5' 
[RETURN] und danach RUN [RETURN] eingeben. 


Lektion 6b 


Eingaberoutinen 


Die bisherige Version des Datenverwaltungsprogramms 
erlaubt lediglich den Aufruf der verschiedenen Uhnter- 
menüs, die sich inzwischen — Dank der Änderungen aus 
Lektion 5 — in einer verbesserten grafischen Gestaltung 
präsentieren. Praktisches Arbeiten, das heißt das Erfas- 
sen von Daten, ist im Moment noch nicht möglıch. 

In dieser Lektion werden alle notwendigen Programmab- 
schnitte vorgestellt, die für die Definition eines Dateına- 
mens und zum Erfassen von Daten notwendig sınd. Das 
Dateneingabemenü bietet fünf Auswahlpunkte, die fol- 
gende Bedeutung haben: 


Dateneingabemenü 
Neue Datei eröffnen 


Bestehende Datei ergänzen 


Eingegebene Daten ändern 
Eingegebene Daten ausdrucken 


Zurück zum Hauptmenü 


| INNEN null | 
Ihre Eingabe: 


Neue Dateı eröffnen 


Ebenso wie das Datenverwaltungsprogramm selbst unter 
einem bestimmten Namen auf Diskette gespeichert ıst 
(die aktuelle Version unter dem Namen »LEKTION 5, 


werden auch dıe mıt dem Programm eingegebenen Da- 
ten unter einem bestimmten Dateinamen abgespeichert. 
Es ıst jedoch möglich, nicht nur eine, sondern mehrere 
Dateien mit dem Programm zu verwalten. Da im vorlie- 
genden Fall das Programm zum Aufbau von Personenda- 
teien konzipiert wird, wäre es sinnvoll, zum Beispiel alle 
privaten Personendaten (Verwandte, Bekannte, Stars und 
so weiter) von geschäftlichen Daten (beispielsweise Kun- 
denadressen und so weiter) zu separleren und hierfür 
getrennte Dateien zu eröffnen. 


Bestehende Datei ergänzen 


Nachdem unter einem freı gewählten Dateinamen (zum 
Beispiel »PRIVAT« oder »KUNDEN« Personendaten ein- 
gegeben wurden, kann zu einem späteren Zeitpunkt die- 
se Datei durch neue Eintragungen ergänzt werden. 


Eingegebene Daten ändern 


Ein komfortables Datenverwaltungsprogramm muß ne- 
ben der Datenspeicherung auch die Möglichkeit bieten, 
bestehende Daten zu verändern. Dies wird zum Beispiel 
erforderlich, wenn sıch eine Anschrift ändert oder neue 
Informationen eingetragen werden sollen. Unter diesem 
Auswahlpunkt sollte es auch möglich sein, bestimmte Da- 
ten vollständig zu löschen. 


Eingegebene Daten ausdrucken 


Vielfach wird nicht nur das Einsehen eingegebener Da- 
ten auf dem Bildschirm gewünscht, sondern auch deren 
Ausdruck. Mit Hife eines angeschlossenen Druckers 
wird es über diesen Auswahlpunkt möglich sein, Daten 
auf dem Papier festzuhalten. 


Zurück zum Hauptmenü 


Dieser Auswahlpunkt ist gewissermaßen eın Standard. Es 
sollte jederzeit möglich sein, ein Untermenü zu verlassen 
und zum Hauptmenü zurückzukehren, damit zum Beispiel 
andere Funktionen aufgerufen werden können. Der 


Rücksprung zum Hauptmenü ist auch dann notwendig, 
wenn man zuvor aus Versehen eine falsche Taste 
gedrückt hat und in ein Untermenü verzweigt ist, zu dem 
man eigentlich nicht wollte. 


Zur Programmierung dieser Funktionen wird zunächst 


das notwendige Struktogramm vorangestellt, das die ein- 
zelnen Eingabeschritte bildlich verdeutlicht. 


Dateneingabemenü 


UP: Eingabe : Eingabe 
Dateiname Daten- 
satz- 
nummer 


UP: Bildschirmmaske 


Wie zu sehen ist, enthält dieses Struktogramm einen Feh- 
lerblock und den Aufruf von Unterprogrammen sowie 
zwei neue Begriffe: »Datensatznummer« und »Bildschirm- 
maske«. Unter einem Datensatz versteht man einen sinn- 
gemäß zusammenhängenden Block von Daten. Zum Bei- 
spiel besteht eine Adresse zwar aus einzelnen Daten 
(Vorname, Nachname, Straße, Postleitzahl, Wohnort, Te- 
lefonnummer), die jedoch sinngemäß zusammenhängen. 
Eine isoliert stehende Postleitzahl genügt nicht, um den 
Empfänger einer Sendung zu bestimmen. 

Mit dem Datenverwaltungsprogramm werden die einzel- 
nen Eingaben immer als Datensätze erfaßt und diese zu- 
sammenhängenden Blöcke auf Diskette abgespeichert. 
Gıbt man dann später zum Beispiel bei einer Suchroutine 
dıe Postleitzahl »6000« ein, so erscheinen auf dem Bild- 
schirm nicht nur alle abgespeicherten Postleitzahlen 


Erstes Struktogramm 
der Eingaberoutine 


6000, sondern auch die jeweils dazugehörenden An- 
schriften. Erst hierdurch wırd das Datenverwaltungspro- 
gramm nützlich. 

Jeder Datensatz erhält eine Nummer. Dabeı kann es sıch 
um eine Kundennummer mit speziellen Erkennungscodes 
handeln oder um eine andere chronologisch fortlaufende 
Nummer. Dies hat gewisse Vorteile, weil man beim Auf- 
ruf eines bestimmten Datensatzes nıcht immer den Vor- 
und Nachnamen eingeben muß, sondern lediglich die 
betreffende Nummer. 

Die einzelnen Angaben innerhalb eınes Datensatzes wer- 
den als »Datenfelder« bezeichnet. So stellen der Vorna- 
me, Nachname, die Straße... jeweils ein Datenfeld dar. 
Diese Datenfelder müssen für Eingaben, Änderungen 
oder zum einfachen Lesen auf dem Bildschirm präsen- 
tiert werden. Wenn mehrere oder alle Datenfelder eines 
Datensatzes gleichzeitig auf dem Bildschirm erscheinen, 
spricht man von einer »Bildschirmmaske« (auch »Ein- 
gabemaske«). Da die Bildschirmmaske ım vorliegenden 
Programm stets gleich sein soll — unabhängig davon, ob 
Daten eingegeben, geändert, gelesen oder gedruckt 
werden —, kann für den Bildschirmaufbau (PRINT- 
Anweisungen) ein Unterprogramm eingerichtet werden, 
in das bei Bedarf verzweigt wird. Ähnlich verhält es sich 
mit den Eingaben von Dateinamen und Datensatznum- 
mern; beides wird häufiger ım Verlauf des Programms 
benötigt, so daß auch hierfür Jeweils Unterprogramme 
eingerichtet werden. (Die Erläuterungen der neuen BA- 
SIC-Anweisungen zum Erreichen eines Unterprogramms 
folgen ım Anschluß an das untenstehende Listing.) Mit 
dem hier konzipierten Programm sollen Ja nicht nur 
geschäftliche Daten eingegeben werden können, son- 
dern auch rein private, die zum Beispiel für ein Familien- 
ratespiel oder ähnliches benutzt werden können. Aus 
diesem Grund enthält der komplette Datensatz neben 
der Datensatznummer und der üblichen Anschrift noch 
weitere Datenfelder für »Lieblingsfarbe«, »Lieblingses- 
sen«, »Lieblingsspiel« sowie fünf weitere neutrale Felder, 
die einfach mit »Eintrag A,B,C,D,E« bezeichnet sind. Hier 
können Sıe als Anwender des Programms frei entschei- 
den, was ın dıe Felder eingetragen werden soll. Soll das 
Programm zum Aufbau einer Kundendatei dienen, 
können »Lieblingsfarbe« natürlich umgeändert und durch 
zweckentsprechende Datenfeldbezeichnungen ersetzt 
werden. Die Funktionsweise des Programms wird davon 
in keiner Weise beeinflußt. Denn dem Computer ist es 
natürlich völlig gleichgültig, ob er die Lieblingsfarbe von 
Onkel Otto auf Diskette abspeichert oder die Umsatzzahl 
eines Versicherungsvertreters oder ähnliches. Trotzdem 
sollten Sie, bevor Sie eigene Änderungen in das Pro- 


gramm einbringen, die vorgegebene Struktur zunächst 
einmal übernehmen, damit keine Irritationen durch von 
Ihren Datenfeldbezeichnungen abweichende Beschrei- 
bungen und Erklärungen auftreten. 

Die Bildschirmmaske kann natürlich mit Hilfe der Erfah- 
rungen aus Lektion 5 grafisch attraktiv gestaltet werden. 
Die notwendige Listingergänzung finden Sie in den fol- 
genden Programmzeilen. Wenn Sie die Begleitdiskette zu 
diesem Buch einsetzen, können Sie die neue Version 
durch DLOAD "LEKTION 6.1’ [RETURN] in den Arbeits- 
speicher des Rechners laden. Ansonsten laden Sie die 
bisherige, von Ihnen selbst abgespeicherte Version mit 
DLOAD "LEKTION 5’ [RETURN] in den Arbeitsspeicher 
und fügen die neuen Zeilen hinzu. 


455 if a=1 then gosub 2900: gosub 3000:go 


TE 35D08 
460 if a=2 then gosub 2900: gosub 3000:go 
to 4000 


465 if a=3 then gosub 2950 :gosub 3000:go 
to 4500 


470 if a*t then oosub 2950: gosub 3000:g0 
to 5008 

475 if 8*5 Ehen goata 20... 

480 if a>5 then print: print’ ’Diese ingab 
e ist nicht miglich. | Weiter mit b 
EUNEEI Taste. : gerkey a$:goto 300 


>900 rem ae dateiname 

2910 print:input "Eingabe Dateiname: ”;d 
n$ 

2920 return 

En) rem BENIERU: datensatznummer 

D: ” Te 

e970 return. 


3000 rem bildschirnnaske 


3010 seneir. BR I 
3020 pr inet | EEE NNEEEIEIEISESS ILS SHEIEIESEIEEIEESOS OHRENR 
PERF EEE ERESERSERSEREFERREHRSEFEHFEFFREHFERTES | ae: 

3030 print” | Datensatznummer C ) 

3040 pr int” | ee renrreehninhehherenieeherincheeneeg 
3050 Seiner Vorname EURER TUT 
3060 ER nenmane rien ah e 
3070 print” |Strape ar nenn nn 


EHE erbmbennnsteengedt “ir 


a. Eintrag 


[HERR HERE EEE EHER HESRE SEEEHT SERHS OHREN TERROR 


oe oo 
En ARE ne 18 ‚chr8(5)3” Datei in Bea 


2230. ehe 


Wie Sıe sehen, wurde hier mehrfach die Technik der Zeı- 
lenkomprimierung durch Doppelpunkte angewandt. We- 
sentlicher ıst Jedoch, daß dıe Zeilen 455 bıs 470 sowie die 
Zeilen 2920 und 3230 neue BASIC-Wörter enthalten. Es 
handelt sıch um die Anweisungen GOSUB und RETURN. 
Mit diesen Anweisungen wird ein Unterprogramm er- 
reicht und wieder verlassen. 

GOSUB (engl. etwa »gehe runter‘) wird ımmer an den 
Stellen ın einem Programm angegeben, an denen eine 
Verzweigung In ein Unterprogramm erfolgen soll. Im vor- 
lıegenden Fall also zunächst zur Zeile 2900, wo mit Hilfe 
der INPUT-Anweisung ein Dateiname eingegeben wird. 
Sobald dieser ın sıch abgeschlossene Programmabschnitt 
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beendet ıst, wırd als letzte Anweisung RETURN (engl. 
»Rückkehr«) gegeben, worauf der Rechner zu der Stelle 
des Programms zurückkehrt, an der dıe GOSUB- 
Anweisung vorlag. Das Programm wiırd dann genau an 
diesem Punkt fortgesetzt. Wohlgemerkt: Die Anweisung 
RETURN hat nichts zu tun mit der Taste [RETURN]. 

Es ıst ohne weiteres möglıch, mehrere GOSUB-Anwelr- 
sungen nacheinander zu geben. Daher wird ım vorlie- 
genden Listing nach dem Unterprogramm für dıe Eınga- 
be des Dateinamens sofort ın das Unterprogramm zum 
Aufbau der Bildschirmmaske verzweigt. Die Zeilen 3500, 
4000, 4500 und 5000, ın dıe nach der Rückkehr aus dem 
zweiten Unterprogramm verzweigt werden soll, exiıstie- 
ren im Moment noch nıcht. Sie dienen zur eigentlichen 
Abwicklung der mit dem Dateneingabemenü aufgerufe- 
nen Funktionen und werden nach den folgenden Erläute- 
rungen programmiert. 

In den Programmzeilen zum Aufbau der Bildschirmmas- 
ke (Zeilen 3000 bıs 3230) sehen Sıe außer Buchstaben und 
Punkten verschiedene Grafikzeichen, die einen Rahmen 
für dıe einzelnen Datenfelder bilden (siehe Bildschirm). 
Diese Grafikzeichen sind ebenfalls über dıe Tastatur zu 
erzeugen. Im Anhang D des Anleitungsbuches finden Sıe 
eine entsprechende Übersicht. Um die Zeichen auf den 
Bildschirm zu bringen, drücken Sıe die Commodore- 
Taste gleichzeitig mit der Zeichentaste. Den senkrechten 
strich erreichen Sie durch Drücken der Commodore- 
Taste und [B]. 


Als letztes ıst noch die Programmzeile 3220 hervorzuhe- 
ben, ın der zunächst die Zeichendarstellung Invertiert 
und die Zeichenfarbe auf Weiß umgestellt wırd. Danach 
folgt der Text »Datei ın Bearbeitung:« und der zuvor eın- 
gegebene Dateiname (Variable dn$). Zum Abschluß wird 
die Invertierung und Farbveränderung wieder zurück- 
genommen. Auf diese Weise hat man neben den Daten- 
feldern stets den Namen der aktuellen Datei vor Augen. 


um zu a daß Verabionanen mehrfach be | 
nutzt: werden, sollte man zu jedem BASIC- Programm 
‚eine Variablenliste anlegen. 


In der bisherigen Version des Datenverwaltungs- 
programms wurden folgende Varlablennamen verwen- 
det: 


a für allgemeine numerische GETKEY-Anweisun- 
gen (Zahlen) 

a$ für allgemeine alphanumerische GETKEY-An- 
weısungen (Buchstaben) 

An$ für Dateiname 

dn für Datensatznummer 


Da mit dem Programm natürlich nicht nur eın Datensatz, 
sondern beliebig viele Datensätze eingegeben werden 
sollen, müssen auch für dıe Eingaben der Datenfelder 
Variablen eingesetzt werden. Das Programm speichert 
dann Jeweils nach der Eingabe eines kompletten Daten- 
satzes die Daten auf Diskette, so daß dıe Variablen für 
einen neuen Eintrag wieder zur Verfügung stehen. (Den 
Datenaustausch zwischen Computer und Diskettenstation 
beschreibt Lektion 7 dıeses Kurses.) Das heißt also, wenn 
zum Beispiel beim ersten Eintrag dıe Varlable für den 
»Vornamen« mit der Zeichenkette »Irıs« belegt wird, kann 
die gleiche Variable — nach Abspeichern des Vorna- 
mens »Iris« auf Diskette — mit einem neuen Namen belegt 
werden, der dann ebenfalls abgespeichert wird und so 
weiter. 

Ebenso wie für den Dateinamen (dn$) und die Datensatz- 
nummer (dn) sollten auch für dıe Datenfelder Variablen- 
namen benutzt werden, dıe sinngemäß mit der Bezeiıch- 
nung des Datenfeldes zusammenhängen. Aus diesem 
Grund werden für die nächsten Programmıierschritte fol- 
gende Varlablennamen definiert: 


vn$ für Vorname 

nn$ für Nachname 

st$ für Straße 

pz für Postleitzahl (enthält nur numerische Werte) 

wo$® Wohnort 

tn$ Telefon (muß als alphanumerische Variable defi- 
niert werden, weil neben Zahlen in der Regel 
auch ein Zeichen eingetragen wird, zum Beispiel 
05123/444779) 

gb$ für Geburtstag 

vh$ für Ja/Nein-Eintrag »verheiratet« 

ki für Anzahl der Kinder (falls vorhanden) 

f$ für Lieblingsfarbe 

le$ für Lieblingsessen 

ls$ für Lieblingsspiel 

ea$ für Eintrag A 

eb$ für Eintrag B 

ec$ für Eintrag © 

ed$ für Eintrag D 

ee$ für EintragE 


Insgesamt besteht — zusammen mit der Datensatznum- 
mer — ein kompletter Datensatz aus achtzehn Datenfel- 
dern. Die Punkte, die hinter den meisten Datenfeldern 
stehen, kennzeichen dıe maximale Anzahl der Zeichen, 
dıe ın das betreffende Feld eingetragen werden können. 
Felder für numerische Werte (Datensatznummer, Postleit- 
zahl und Kinder) sind durch Klammern gekennzeichnet. 
Das gleiche qilt für das Datenfeld »verheiratet« Hierbei 
handelt es sıch um eın sogenanntes Ja/Nein-Feld, wie 
man sie häufig ın professionellen Datenverwaltungspro- 
grammen findet. Man trägt hier entweder eın »J« oder eın 
»N« ein. Dies ıst einfacher als zum Beispiel das Datenfeld 
mit »Familienstand« zu bezeichnen, ın das dann »verheira- 
tet« oder »ledig« eingetragen werden müßte. 

Wie aber werden die Eintragungen selbst nun vorgenom- 
men und Jeweils hinter die Datenfeldbezeichnungen ge- 
schrieben? Dazu bietet das BASIC des Commodore 128 
eine weitere, komfortable Anweisung: CHAR (Abkürzung 
für »Character«, engl. »Zeichen«, aber auch Bezeichnung 
für »reinemachen«, »zurechtmachen«. Die CHAR- 
Anweisung benötigt folgende Angaben: 


Das Arbeiten mit verschiedenen Farbauellen wurde be- 
reits ın Lektion 5, Seite 47 beschrieben. Hier wird für den 
Hintergrund der Wert O und für die Zeichen der Wert | 
eingegeben. Zur x/y-Koordinate des Bildschirms ist fol- 
gendes zu sagen: Je nach Monitor ist eine 40- oder 80-Zei- 
chendarstellung in 25 Zeilen möglich. Somit besteht der 
Bildschirm aus 1000 oder 2000 einzelnen Bildpunkten. 

Üblicherweise positioniert sich der Cursor nach einer 
PRINT-Anweisung entweder genau hinter einen Text be- 
ziehungsweise eine Zahl (wenn mit einem Semikolon ab- 
geschlossen wurde) oder in der nächsten Zeile. Mit Hilfe 
der CHAR-Anweisung ist es nun möglich, den Cursor an 
jeden beliebigen Bildschirmpunkt zu positionieren und 
dort zum Beispiel eine weitere PRINT-Anweisung aus- 
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Die einzelnen Bildschirmpunkte bei der 40-Zeichendarstellung des Commodore 128 


führen zu lassen. Die Angabe für x bezeichnet dabei die 
Spalte, in der der Cursor stehen soll, die Angabe für y 
die Zeile. Danach folgt — wenn man will — ein Text sowie 
die Angabe, ob dieser Text invertiert (Wert 1) oder nor- 
mal (Wert 0) dargestellt werden soll. 

Löschen Sıe ım Direktmodus mit [SHIFT]-{CLR HOME] 
den Bildschirm und geben Sie zur Übung folgende 
CHAR-Anweisung ein: 


char 1,5,10,"Probetext",1 [RETURN] 


Hierauf erscheimt in Zeile 10, ab Spalte 5, das Wort »Pro- 
betext« invertiert. Geben Sie nun ein: 


char 0,5,10,° "1 [RETURN] 


Nun erscheint eın Balken ın der Zeichenfarbe. Weiterhin 
ıst möglıch: 


char 1,5,10,"Probetext",O [RETURN] 


Das Wort »Probetext« erscheint mit gewohnter Zeichen- 
darstellung. Schließlich kann die CHAR-Anweisung noch 
für folgende Eingabe genutzt werden: 


char 0,5,10,% ",O [RETURN] 


In dıesem Fall erscheint ein Leerbalken auf dem Bild- 
schirm, mit dem das Wort »Probetext« gelöscht wird. Eine 
Zeichenfarbenänderung wie mit der CHR$-Funktion ist 
mit der CHAR-Anweisung nicht möglich. Ebenso ist es 
nicht möglıch, numerische Werte beziehungsweise Varila- 
blen anstelle eines Textes anzugeben. Somit sind der An- 
wendung der CHAR-Anweisung gewisse Grenzen ge- 
setzt. 

Für das Datenverwaltungsprogramm wird die CHAR- 
Anweisung für dıe Angaben zu den einzelnen Datenfel- 
dern benutzt, dıe anschließend hinter die Feldbezeich- 
nungen geschrieben werden. Dazu muß man zunächst 
wissen, In welchen Spalten und Zeilen die einzelnen Zei- 
chen der Bildschirmmaske stehen. 

Nach dieser Darstellung steht zum Beispiel die erste 
Klammer für dıe Datensatznummer in Spalte 17, Zeile 1. 
Die Nummer selbst müßte also mit Hilfe der CHAR- 
Anweisung ın Spalte 18, Zeile 1 positioniert werden. 
Ebenso wırd mit den übrigen Varlablen für dıe Datenfel- 
der verfahren (vn$ für den Vornamen in Spalte 10, Zeile 3 
und so weiter). Das folgende Struktogramm symbolisiert 
diese Eingaben, und mit den darunterstehenden Pro- 
grammzeillen wird das bisherige Listing entsprechend 
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x/y-Koordinaten der einzelnen Zeichen der Bildschirmmaske 


ergänzt. Auf der Begleitdiskette zum Kursus finden sSıe 
die ergänzte Version unter dem Dateinamen "LEKTION 
6.2. Sie können sıch also gegebenenfalls das Abtippen 
sparen und das komplette Programm wieder mit dem 
DLOAD-Befehl ın den Speicher des Computers laden. 


Zweites Struktogramm 


Datensatznummer in Bildschirmmaske der Eingaberoutine 


Eingabe Vorname, Nachname usw. 


Eingaben in Datenfelder eintragen 


Eingabezeile löschen 


Akzeptiert 


Speichern auf Dis- 
kette 


Eingabezeile Eingabe wiederholen 
löschen 


Datensatz- Zurück 

nummer um zum 

l erhöhen Daten- 
eingabe- 
menu 


UP» Einge- 
bezeile 
löschen 


UP: Daten- 
satznummer 
in Bildma. 


zurück Zur 
Eingabe 


char 1, "17. ı MATT dn 


3360 rem lektion 7 nn 


.beM 0 eintragen 
np 1: Ben 3250 | 
35209 char 1,1,22, "Eingabe Vorname: ”:inpu 
E un 112 Re ul, Er Kult „L: en 3300 


3540 En 22 *Eingahe Straße :”:inp 

ut st$:char 1,10,5,stS5,1:gosub 3300 

3550 char 1,1,28, »Eingabe Postleitzahl: ” 
INDIE == char 1 ‚t, e) SEE 1: WEEZE 33 

00 El 

3560 char 1, i1,ee "Eingabe Wohnort ar 

ut woß:cher 1,18B,6,wo8,, I :gosub 3300 

35’ cher 1,1,c& ‚”Eingabe Telefon :”:inp 

sehe 1,9.Btng 1:ygösuh 3300: 
3580 char 1,1,22, "Eingabe Geb.Tag :”:inp 

ut obs:cher 1,30,8.058, 1:0asub 3308: : 

3590 char 1,1,022, ”verheiratet (J/NI”:inp 

ut vA&S:char 1,14,9,vnS,1:gosub 3308 

3600 char 1,1,c2, "Eingabe Kinderzahl :”: 
input ki: Ehar 1 ee 9,8tErscki),L; das 33 

00 

3510 char 1.1.88, "Lieblingsfarbe : ":inmpu 

t l1£f$:char 1,16,11,1f$,1:gosub 3300 

3620 char 1,1,22,"Lieblingsessen :”:inpu 

t le$:char 1,16,12,1e$,1:gosub 3300 

365630 char 1,1,22,”"Lieblingsspiel :”:inpu 

t iIst:char 1,16,13,1s$, 1:gosub 3300 

3840: char 1,1,ee, Eintrag A :":ınpur saß 
:char 1,11,15,ea$,1:gosub 3300 

3850 char 1,1,28, "Eintrag B: ":ınpub eb. 
:char 1,32,15,eb$,1:gosub 3300 

38550 eher 1,1,28, Eintrad L: : ":inpuk ec$: 
:char 1,11,16,ec$,1:gosub 3300 

3570 char 1,1,08 "Eintrags: ":inpuk 808 
:char 1,302,16,ed$,1:gosub 3300 

3680 char 1,1,22, "Eintrag E :":input ee$& 
:char 1,11,17,ee$,1:gosub 3300 

3680 char 1,1,22, "Akzeptiert (J/N)”:getk 

ey a9 

3200 if a3-"N" ar as*"n" then goto. 3520 

3710 gosub 3350: gosub 3300 

3720 char 1,1,22, "Weiter oder Abbruch Cu 

/A)”:getkey a$ 

3730 if as«"A” or a9*'"a” then gbto 308 . 

37/40 dn=dn+1l:gosub 3300: gosub 3250:goto 
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Eintrag A "Ymeinniläint, . Eintrag B "Elster 
Eintrag C beältieit, . Eintrag D stk, 
| Eintrag E meet nissan 


A BEE ES 3PBEN  sNURTEETRERBDRRE SVEN 
Akzeptiert: (J/ND 


Die eigentliche Eingaberoutine beginnt mit Zeile 3500. 
Die Zeilen 3250 bıs 3370 stellen die Unterprogramme dar, 
in dıe während der Dateneingabe mehrfach verzweigt 
wird. Das Unterprogramm von Zeile 3250 bıs 3270 dient 
zum Eintragen der Datensatznummer ın die Bildschirm- 
maske. Mit dem Unterprogramm der Zeilen 3300 bis 3320 
wird eın vierzig Zeichen langer Leerbalken ın Bildschirm- 
zeile 22 plaziert, der dıe Eingaben für die Datenfelder 
löscht, sobald sıe abgeschlossen sind und ın der Bild- 
schirmmaske stehen. Das Unterprogramm zum Abspei- 
chern der Daten wurde lediglich mit REM-Anweisungen 
gefüllt, weil dieser Bereich erst ın Lektion 7 behandelt 
wırd. Im Augenblick können Sıe also beliebig viele Daten 
eintragen, die Jedoch nicht gespeichert werden. 

Mit Programmzeile 3510 wird der Variablen für dıe Da- 
tensatznummer (dn) der Wert | zugewiesen. Das bedeu- 
tet: Bei der Eröffnung einer neuen Dateı beginnt die erste 
Eintragung automatisch mit der Datensatznummer |. (Man 
könnte natürlich auch mit einer anderen Nummer beqgın- 
nen.) Danach folgen dıe Eingaben mit Hilfe der INPUT- 
Anweiısung. Durch dıe CHAR-Anweisung erscheinen die 
Abfragen stets ın Spalte 1, Zeile 22 des Bildschirms. Nach 
der Eingabe für ein Datenfeld wird die Variable wıeder- 
um mit Hilfe der CHAR-Anweiısung hinter dem betreffen- 
den Datenfeld ın negativer Schrift plaziert. Dadurch sınd 
die Eintragungen der Datenfelder gut abgehoben von 
den Feldbezeichnungen. 

In den Zeilen 3550 und 3600 finden Sıe ein neues BASIC- 
Wort. Es handelt sich um die Funktion STR$ (ausgespro- 


chen STR-String). Mit ıhrer Hilfe wırd ein numerischer 
Wert als Zeichenkette ausgedrückt. Das bedeutet: Wenn 
zum Beispiel dıe numerische Variable für dıe Datensatz- 
nummer (dn) den Wert |] hat, wırd sıe mit Hilfe der 
STR$-Funktion vorübergehend als Zeichenkette, also als 
alphanumerische Variable interpretiert. Die korrekte 
Schreibweise ist in diesem Fall STR$(DN) bzw. str$(dn). 
Was vielleicht etwas kompliziert klingt, hat bei der BA- 
SIC-Programmierpraxis einen großen Nutzen. In der vor- 
liegenden Eingaberoutine wird mit der STR$-Funktion die 
CHAR-Anweisung gewissermaßen überlistet. Denn wel- 
ter oben wurde festgestellt, daß dıe CHAR-Anweisung 
nur Zeichenketten an eine bestimmte Bildschirmposition 
bringen kann. Die Positionierung der Postleitzahl und der 
Kinderzahl in der Bildschirmmaske wäre also nicht 
möglich, wenn sie nicht mit Hilfe der STR$-Funktion zu 
Zeichenketten umgewandelt würden. Dabeı bleiben die 
numerischen Werte der Varnablen pz und kı unberührt. 
Die Umwandlung in eine Zeichenkette bezieht sıch immer 
nur auf die einzelne Ausführung der STR$-Funktion. 

Die Programmzeiıle 3690 bietet dıe Möglichkeit, vor dem 
Abspeiıchern der Daten alle Eingaben noch einmal zu 
prüfen. Wenn sıch hier zum Beispiel Schreibfehler ein- 
geschlichen haben, können diese noch korrigiert wer- 
den, indem nach Erscheinen des Textes »Akzeptiert 
(J/N) die Taste [N] betätigt wırd. Das Programm ver- 
zweigt dann erneut In dıe Eingaberoutine ab Zeile 3520. 
In Zeile 3700 finden Sıe eine erweiterte Form der IF- 
..IHEN-Anweiısung. Es handelt sıch um dıe Ergänzung 
des logıschen Operators OR, der zu den sogenannten 
»Booleschen Operatoren« gehört (benannt nach dem eng- 
lıschen Mathematiker George Boole). Mit den Booleschen 
Operatoren lassen sıch in der Computertechnologie ver- 
knüpfte Bedingungen vergleichen. Die Einzelheiten die- 
ser Anwendungen würden eın eigenes Buch füllen; hier 
in Programmzeile 3700 hat der OR-Operator folgende 
Funktion: Bei der Abfrage »Akzeptiert (J/N) ın Zeile 3690 
kann die Taste [J] für »Ja« oder [N] für »Nein« gedrückt 
werden. Da Jedoch der Computer sehr exakt arbeitet, 
würde er, wenn man die Taste [N] ohne [SHIFT] drückt 
(also das Zeichen »n«) die Bedingung nıcht als »Nein« ın- 
terpretieren, wenn ın Zeile 3700 lediglich stünde »if 
a$="'N’ then goto 3520«. Die Verzweigung zur Zeile 3520 
würde dann nicht erfolgen. Nun ıst es Jedoch lästig, bei 
einer einfachen Ja/Nein-Abfrage jedesmal [SHIFT] mit- 
zudrücken. Aus diesem Grund wird ın praktisch Jedem 
professionellen Programm der logısche Operator OR ein- 
bezogen, der die betreffende IF...THEN-Anweisung zur 
Ausführung brıngt, wenn eine der Bedingungen zutrifft, 
wenn also »N« oder »n« eingegeben wird. 


Ein zweiter Vergleich von verknüpften Bedingungen die- 
ser Art findet sich in Programmzeile 3730, weil mit Zeile 
3720 gefragt wird, ob man weitere Datensätze eingeben 
oder die Eingaberoutine verlassen will. Wird hier »A« 
oder »a« für »Abbruch« eingegeben, kehrt das Programm 
zum Dateneingabemenü zurück. Von dort können Sie 
weiter zum Hauptmenü verzweigen und das Programm 
verlassen oder andere Funktionen aufrufen. 

Mit Zeile 3740 wırd zunächst dıe Datensatznummer um | 
erhöht. Die Schreibweise dn=dn+1 bedeutet »Laß die 
neue Datensatznummer gleich der alten Datensatznum- 
mer plus Eins sein«. Durch diesen Zählvorgang braucht 
sıch der Anwender praktisch nicht um die Datensatznum- 
mer zu kümmern; sie wird automatisch vor der Eingabe 
eines neuen Datensatzes erhöht. Das vermeidet Doppel- 
belegungen, die bei Such- oder Sortiervorgängen zu Pro- 
blemen führen könnten. 


_ Merksatz 


Wenn der Text innerhalb einer CHAR-Anweisung oh- 
ne Invertierung gewünscht wird, kann die Angabe 0 
am Ende der Anweisung fortgelassen werden, also 

CHAR 1,x,y,''Text'' statt CHAR I,x,y,'Text',0 


Mit der Programmierung der Eingaberoutine sind die 
Programmfunktionen des Dateneingabemenüs jedoch 
noch nicht abgeschlossen. Denn die Eingabe von Da- 
tensätzen ıst nur der erste Auswahlpunkt. Als weiteres 
wırd dıe Möglichkeit geboten, eine bereits existierende 
Dateı durch neue Eingaben zu ergänzen, eingegebene 
Daten nachträglich zu ändern sowie eingegebene Da- 
tensätze auszudrucken. Die hierfür erforderlichen Pro- 
grammergänzungen sınd Jedoch weit weniger aufwendig 
als dıe der Eingaberoutine. Da jedoch für die weiteren 
Programmfunktionen die Datenkommunikation zwischen 
Computer und Diskettenstation notwendig Ist, werden die 
Programmzeilen der weiteren Auswahlpunkte mit der fol- 
genden Lektion vermittelt. 


Lektion 7 


Datensicherung 


Mit der bisherigen Version des Datenverwaltungspro- 
gramms können auf komfortable Weise beliebige Men- 
gen von Datensätzen eingegeben werden, die stets in der 
Bildschirmmaske erscheinen. Das Problem hierbei: Nach 
Abschluß der Eingaben sınd die Daten verloren, weil die 
Werte der Varlablen durch neue Eintragungen über- 
schrieben werden. 

In dieser Lektion wird nun gezeigt, wie eine Datensı- 
cherung auf Diskette erfolgt und wie gesicherte Daten 
wieder ın den Arbeitsspeicher des Computers geladen 
werden, damit sıe sich lesen, verändern oder ausdruk- 
ken lassen. 

Die Oberfläche einer Diskette ıst ähnlich aufgebaut wie 
die Oberfläche eines normalen Tonbandes oder Video- 
bandes: Auf die Trägerfolie aus PVC wırd Magnetpulver 
aufgetragen, getrocknet, geglättet, versiegelt und poliert. 
Die dann entstandene gleichmäßige Magnetschicht ist 
2,5 um (2,5 tausendstel Meter) dıck. Bei speziellen Disket- 
tentypen (Hıgh Density-Disks) ıst diese »Dicke« noch eın- 
mal um die Hälfte reduziert. Eın weiterer Unterschied be- 
steht ın einseitig und beidseitig beschichteten Disketten. 
Diese Oberfläche wird — wie beı einem Tonbandgerät 
oder Videorecorder — mit Hilfe eines Schreib-/Lesekop- 
fes beschrieben oder gelesen; etwas technischer aus- 
gedrückt: mit Hilfe des Frequenzmodulationsverfahrens 
magnetisiert oder durch Abtastung magnetisierter Impul- 
se gelesen. Die kleinste manipulierbare Impulseinheit, 
die ın der Computertechnik übertragen wird, ist das Bit. 
Für jedes Zeichen, das auf Diskette ın Form von Magnet- 
impulsen gespeichert werden soll, werden acht Bit bean- 
sprucht (acht Bit entsprechen einem Byte, ausgesprochen 
»Beit«). Es ist daher wichtig, daß bei der Übertragung 
größerer Datenmengen die Diskette eine möglıchst hohe 
Aufzeichnungsdichte besitzt. Die Commodore-Disket- 
tenstation 1571 ıst für beidseitiges Beschreiben von Dis- 
ketten eingerichtet. Man benötigt hierfür doppelseitig be- 
schichtete Disketten (wird häufig mit DS oder 2D ab- 
gekürzt). Mit dem Datenverwaltungsprogramm, das in 
diesem BASIC-Kurs entwickelt wird, können maximal 
65.535 Datensätze oder 167.132 Byte aufgezeichnet wer- 


den (siehe Hinweise ım Bedienungshandbuch zur Disket- 
tenstation, Seite 152), das entspricht etwa dem bisherigen 
Textumfang dieses Buches. 

Damit die aufgezeichneten Daten rasch wiedergefunden 
werden können, wird jede Diskette in konzentrische, nu- 
merlerte Spuren eingeteilt. Dies ist etwa vergleichbar mit 
den Spuren einer Schallplatte. Eine weitere Einteilung 
wird ın Sektoren vorgenommen. Im Betrieb mit der Com- 
modore-Diskettenstation 1571 stehen bei doppelseitigen 
Disketten insgesamt 70 Spuren mit Je 17 bis 21 Sektoren 
zur Verfügung. 

Diese Einteilung liegt beim Kauf einer Diskette natürlich 
noch nicht vor. Sie muß erst im direkten Betrieb mit der 
Diskettenstation vorgenommen werden. Der hierfür er- 
forderliche BASIC-Befehl lautet HEADER. Er benötigt fol- 
gende Angaben: 


nn 1 ie beliebige Erkennungsaltem. um - 
—_— 00, ol, 1, n BE en 


Wen 8 als Geräcbesichnung & für die a . 
station voreingestelli I, Kann « diese > Angabe a 
allen) . ee 


Als Name können — wie bei der Vergabe eines Dateina- 
mens — bis zu sechzehn beliebige Zeichen eingegeben 
werden. Sie sollten dem Gebrauch der Diskette sinnent- 
sprechend sein, zum Beispiel PROGRAMME’, wenn 
hauptsächlich BASIC-Programme abgespeichert werden 
oder 'DATEN’, wenn die Diskette zum Aufbau von Da- 
teien benutzt wird. Es ist immer sinnvoll, Programm- 
disketten von Datendisketten zu trennen, damit auf den 
Datendisketten der wertvolle Speicherplatz nicht durch 
Programme belegt wırd. Daneben sollte noch eine dritte 
Diskette verwendet werden, die zur zweiten Sicherung 
von Daten und Programmen dient. Es könnte einmal vor- 
kommen, daß eine Hauptdiskette durch Unachtsamkeit 
oder andere äußere Einflüsse zerstört wird; dann ist es 
gut, wenn man auf eine Sıcherheitskopie zurückgreifen 
kann. Diese dritte Diskette kann zum Beispiel den Namen 
"SICHERUNG" oder "BACKUP' (engl. »Rückendek- 
kung«, »Rückversicherung«) tragen. 


Nachdem die Diskettenstation und der Computer einge- 
schaltet sind, wird eine neue Diskette ın das Laufwerk 
eingeschoben und der Hebel verriegelt. Dann wird ım 
Direktmodus der HEADER-Befehl eingegeben: 


HEADER "PROGRAMME" ,DO,IO01 [RETURN] 


Darauf erfolgt die Frage auf dem Bildschirm »ARE YOU 
SURE?« (engl. »Sind Sie sicher?«). Diese Sicherheitsabfra- 
ge hat den Sınn, vor ungewolltem Löschen von Program- 
men und Daten zu schützen. Denn während der Eintel- 
lung der Diskette in Spuren und Sektoren (exakte Be- 
zeichnung Ist Formatieren) werden sämtliche magneti- 
sjerten Impulse neutralisiert. Formatiert man also aus 
Versehen die Hauptprogramm- oder Datendiskette, hat 
dies sehr unangenehme Folgen, weıl sämtliche Program- 
me und Daten endgültig gelöscht werden. Wenn man je- 
doch sıcher ıst, daß die gewünschte Diskette ım Lauf- 
werk lıegt, kann man die Taste [Y] und [RETURN] 
drücken. Daraufhin wırd mit der Formatierung begon- 
nen. Der gesamte Vorgang dauert etwa eine Minute. Man 
kann ıhn für dıe Datendiskette und Sıcherungsdiskette 
wiederholen. 

Wıll man nun wissen, welche Programme oder Daten 
sıch auf einer Diskette befinden, ist ein weiterer Be- 
fehl erforderlich: DIRECTORY (engl. »Adreßbuch«). Der 
DIRECTORY-Befehl listet das Inhaltsverzeichnis einer 
Diskette auf den Bildschirm, das vonseiten des Betriebs- 
systems automatisch auf Spur 18, Sektor 1 geschrieben 
wird. Diesen Befehl können Sıe nun einmal eingeben: 


DIRECTORY [RETURN ] 


Solange sıch noch keine Programme oder Daten auf 
einer Diskette befinden, erscheint neben dem Disketten- 
namen lediglich der Hınweiıs, daß noch 1328 »Blöcke« freı 
sınd. Blöcke ıst hier eine commodoreeigene Bezeichnung 
für Sektorenabschnitte von Spuren. Befinden sıch hinge- 
gen Programme oder Dateien auf der Diskette, so 
werden deren Namen aufgelistet und die Jeweils bean- 
spruchte Zahl von Blöcken. Man kann den DIRECTORY- 
Befehl Jederzeit eingeben; ein eventuell ım Arbeitsspei- 
cher des Computers befindliches Programm wird da- 
durch nıcht gelöscht. Da Jedoch die Eingabe dieses rela- 
tıv langen BASIC-Wortes etwas umständlich ist, sollte 
man statt dessen dıe Funktionstaste [f3] drücken. Diese 
Taste ıst mıt der Ausführung des DIRECTORY-Befehls 
belegt. Auch dıe anderen bisher benutzten Disketten- 
befehle können ohne Eingabe der einzelnen Buchstaben 
über Funktionstasten aufgerufen werden: [f2] ist mıt dem 


Befehl DLOAD belegt (zu erreichen durch [SHIFT}Hfl]) 
und DSAVE wird mit [f5] aufgerufen. Man muß dann je- 
weils nur noch die gewünschten Dateinamen eingeben. 
Neben dem einfachen Auflisten des Inhaltsverzeichnisses 
einer Diskette bietet der DIRECTORY-Befehl noch einige 
weiterführende Funktionen, die im zweiten Teil des Bu- 
ches vorgestellt werden, weil sie für die augenblickliche 
Arbeit nicht wichtig sind. 

Wichtig sind jedoch noch zwei weitere Befehle bei der 
Arbeitspraxis mit der Diskettenstation: SCRATCH und 
UNSCRATCH (engl. »streichen«, »ausradieren« und »nicht 
streichen«, »nicht ausradieren«). Mit diesen Befehlen kann 
man ein nicht mehr benötigtes Programm oder eine Datei 
löschen (SCRATCH) beziehungsweise ein aus Versehen 
gelöschtes Programm wieder retten (UNSCRATCH). Die 
korrekte Schreibweise dieser Befehle ist: 


SCRATCH "DATEINAME" [RETURN] 
UNSCRATCH "DATEINAME" [RETURN] 


Das Geheimnis, wie eine gelöschte Datei wieder gerettet 
wird, ıst ganz einfach: Der SCRATCH-Befehl löscht nicht 
die abgespeicherten Daten eines Programms oder ei- 
ner Datei, sondern lediglich den betreffenden Namen 
aus dem Inhaltsverzeichnis der Diskette. Durch den 
UNSCRATCH-Befehl wird dieser Name dann wieder re- 
aktiviert und für den Anwender verfügbar gemacht. 

Als letzter, im Moment wichtiger Befehl ist RENAME 
(engl. »umbenennen« zu erwähnen. Mit ıhm kann eın Da- 
teıname ın einen anderen Dateinamen umbenannt wer- 
den, ohne daß die Dateı selbst davon berührt wird. 
Wenn man zum Beispiel ein BASIC-Programm entwickelt 
und die einzelnen Versionen jeweils unter dem Namen 
»ITEST« oder ähnlichem abgespeichert hat, wıll man der 
endgültigen Fassung einen zutreffenderen Namen ge- 
ben. Hierfür dient der RENAME-Befehl. Die korrekte 
Schreibweise ist: 


RENAME "ALTER NAME" TO "NEUER NAME" 


Disketten mit wichtigen Programmen und Daten soll- 
ten etwa alle fünf bıs sieben Jahre auf neu formatierte 
Disketten umkopiert werden, weil sich im Laufe der 
Zeit dıe Magnetisierung durch einen natürlichen Alte- 
rungsprozeß verändert und die Daten BON NE 
nicht mehr r gelesen werden können, 


Solange man lediglich Programme abspeichert, braucht 
man sıch keinerlei Gedanken darüber zu machen, In wel- 
chen Sektoren und auf welchen Spuren diese Daten ab- 
gelegt werden. Das Diskettenbetriebssystem erledigt 
diese Arbeit selbsttätig. Beim Anlegen einer Datei — wie 
der hier gezeigten Personendatei — muß man jedoch 
einige Regeln beachten, damit die abgespeicherten Da- 
ten später möglichst schnell wiedergefunden werden 
können. 

Für den Aufbau von Dateien bietet der Diskettenbetrieb 
zwei grundsätzliche Dateitypen! 


Die Sequentielle Datei ıst eine Organisationsform, bei der 
alle eingegebenen Daten grundsätzlich hintereinander, 
also ın der Reihenfolge der Eingabe abgespeichert wer- 
den. Neue Daten können Immer nur am Ende des zuletzt 
abgespeicherten Datensatzes hinzugefügt werden. Eın- 
zelne Einträge lassen sıch nachträglich nıcht ändern. Zum 
Lesen einer Sequentiellen Dateı stehen zweı Methoden 
zur Verfügung: die sequentielle Zugriffsmethode (ab- 
gekürzt SAM, vom engl. »sequential access method«) und 
die indexsequentielle Zugriffsmethode (abgekürzt ISAM, 
vom engl. »ıindex-sequentlal access method«). Bei der se- 
quentiellen Zugriffsmethode wiırd dıe Datei vom ersten 
Eintrag bis zum gesuchten Eintrag kontinuierlich gelesen. 
Je nach Menge der gespeicherten Daten beansprucht 
diese Methode unter Umständen sehr vıel Zeit. Bei der 
indexsequentiellen Zugriffsmethode wird für die abge- 
speicherten Datensätze ein Index mit Verweisen ange- 
legt, ın welchen Sektoren und Spuren die Datensätze ab- 
gelegt sınd. Beim Suchen eines bestimmten Datensatzes 
lıest das Diskettenbetriebssystem zuerst den Index, bıs 
der Hınweiıs auf den betreffenden Datensatz gefunden ist. 
Danach wırd der Datensatz selbst gelesen und auf dem 
Bildschirm oder einem Drucker zur Ausgabe gebracht. 
Die ISAM-Methode wickelt einen Lesevorgang also we- 
sentlich schneller ab. 

Dıe Relatıve Dateı (auch Relationale Dateı oder Random 
Access File, engl. »wahlfreie Zugriffsdatei« genannt) Ist 
eine Organisationsform, bei der die einzelnen Datensätze 
in tabellenartiger Weise hintereinander abgespeichert 
werden und Jeder Eintrag eine Datensatznummer erhält. 
Durch die Tabellenstruktur sınd alle Datensätze gleich 
lang, unabhängig davon, wieviele Zeichen eın Datenfeld 
besitzt. Die nıcht beanspruchten Räume bleiben als Leer- 
zeichen bestehen. Beim Lesen eines Datensatzes wird auf 


die Datensatznummer unmittelbar Bezug genommen, wo- 
durch sich der Lesevorgang äußerst schnell vollzieht. 
Einzelne Einträge können jederzeit wahlfrei verändert 
oder ganze Datensätze aus der Tabelle gelöscht werden, 
ohne daß dies die übrigen Einträge beeinflußt. 

Es ıst offensichtlich, daß für den Aufbau einer Personen- 
dateı die relative Dateistruktur der sequentiellen vorzu- 
zıehen Ist, weil In einer Personendatei immer einmal 
Änderungen notwendig werden. Aus diesem Grund wur- 
de die bisherige Version des BASIC-Programms auch 
ganz auf dıe Sicherung der Datensätze in einer Relativen 
Dateı eingerichtet. 
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Unterschiedliche Struktur von Sequentieller und Relativer Datei 


Die Abbildung verdeutlicht die Unterschiede der beiden 
Dateitypen. Bei der Sequentiellen Datei werden alle Eın- 
gaben lückenlos hintereinander geschrieben, vergleich- 
bar mit einer Schallplatte, die nur ein einziges, langes 
Musikstück enthält. Bei der Relativen Datei wird für jedes 
Datenfeld dıe gewünschte Anzahl von Stellen reserviert, 
und dıe Datensätze werden auf diese Weise wie in einer 
Tabelle aneinandergereiht, vergleichbar mit einer 
Schallplatte, die mehrere, exakt gleich lange Musik- 
stücke enthält. Durch diese präzise Struktur ıst es 
möglıch, jedes Datenfeld in jedem Datensatz aufzufinden 
und gegebenenfalls zu verändern. Dabei darf die Anzahl 
der reservierten Stellen nıcht überschritten werden. 
Beim Aufbau einer Relatıven Datei muß darauf geachtet 
werden, daß man mit der Menge der Datenfelder und 
den zu reservierenden Räumen möglichst sparsam um- 
geht. Denn unsinnig viele Leerzeichen nehmen wertvol- 
len Speicherplatz auf der Diskette weg. So wäre es zum 
Beispiel wenig sinnvoll, für dıe »Anzahl der Kinder« zehn 
Stellen zu reservieren, weil wohl keine Familie 
1.000.000.000 Kinder zu versorgen hat. 

Das vorliegende Datenverwaltungsprogramm enthält pro 
Datensatz achtzehn Datenfelder. Auf der Bildschirmmas- 
ke ıst leicht zu erkennen, wieviele Stellen pro Feld reser- 
viert wurden. Es handelt sıch dabei um allgemeine Erfah- 
rungswerte, die ın der Regel zum Erfassen von Adressen 
und so weiter genügen. 

In der Tabelle auf S. 80 ıst die Anzahl der reservierten 
Stellen pro Datenfeld noch einmal zusammengefaßt. Da- 


Feldbezeichnung Stellenanzahl Beginn in Spalte 


Vorname 
Nachname 
Straße 
Postleitzahl 
Wohnort 


Telefon 
Geburtstag 
verheiratet 
Kinder 


lıeblingsfarbe 
Lieblingsessen 
Lieblingsspiel 


Eintrag A 
Eintrag B 
Eintrag C 
Eintrag D 
Eintrag E 


zusammen: 217 + 


beı muß jedem Datenfeld noch ein weiteres Zeichen hın- 
zugerechnet werden, weil von seiten des Disketten- 
betriebssystems automatisch hinter Jeden Eintrag ein [RE- 
TURN} Zeichen (entsprechend dem ASCII-Code 13, ver- 
gleiche Lektion 5, Seite 53) geschrieben wird. Die zweite 
Spalte ın der Tabelle zeigt an, an welcher Stelle (das 
heißt mit welchem Byte) innerhalb des Datensatzes Jedes 
Datenfeld beginnt. Diese Angaben sınd für die Speiche- 
rung ın eine Relatıve Dateı notwendig. Für dıe Datensatz- 
nummer muß jedoch keın Platz reserviert werden. Dies 
wird vom Diskettenbetriebssystem selbsttätig übernom- 
men. 

Um dıe Datenübertragung zwischen Computer und 
Diskettenstation zu ermöglichen, müssen folgende Pro- 
grammierschritte unternommen werden: 


Um alle diese Funktionen ausführen zu können, bedarf es 
wiederum einer Reihe von neuen BASIC-Anweisungen. 
Zunächst zur Eröffnung eines Datenübertragungskanals. 
Mit diesem »Kanal« ist eine elektrische Leitung gemeint, 
über die während des Speicherns die Impulse (Bit) für 
die Magnetisierung der Diskette gesendet werden bezie- 
hungsweise während des Lesens die magnetisierten Im- 
pulse zum Computer übertragen werden. Es stehen ıns- 
gesamt 255 solcher Datenleitungen zur Verfügung. In der 
Praxis benötigt man allerdings höchstens drei oder vier. 
Die Anweisung zum Eröffnen eines Datenkanals lautet 
DOPEN# (engl. »öffnen«, wobei sich das »D« auf »Disket- 
tenlaufwerk« bezieht und das Nummernzeichen auf den 
gewählten Datenkanal). Diese Anweisung benötigt zum 
Aufbau eıner Relatıven Datei folgende Angaben! 


TEST en 2 oo. 

2 E:: + ‚die Anzahl der Zeichen an). eines ; Daten en 

EEE satzes | = 

| > Di +: Angabe des benutzten Diskettenlaufwerks. 

.. (bei Betrieb mit nur einem Laufwerk | ist ı 
Wert 0, sonst 8 an | ; 


An Stelle eines vorher festgelegten Dateinamens kann 
die DOPEN-Anweisung auch Varablen verarbeiten. Die 
Varlablennamen müssen dabei ın Klammern gesetzt wer- 
den. Da ım vorliegenden Datenverwaltungsprogramm für 
den Dateinamen die Variable dn$ verwendet wird, 
würde die korrekte Schreibweise zum Eröffnen einer 
Relativen Dateı über Datenkanal | folgendermaßen aus- 
sehen! 


DOPEN #1, (DN$) ,L234,DO,U8 


In Wirklichkeit kann man sıch jedoch die beiden letzten 
Angaben sparen, weil sie vom Betriebssystem mit den 
korrekten Werten voreingestellt sind. Somit könnte die 
Anweisung DOPEN#1,(DN$),L234 beziehungsweise 
dopenl, (dn$),1234 lauten. 

Nach der Eröffnung des Datenkanals kann die eigentli- 
che Datenübertragung stattfinden. Dazu wird die Anwei- 
sung RECORD# (engl. »Aufzeichnung«) und eine erweiı- 
terte PRINT-Anweisung verwendet. Die RECORDH#- 
Anweisung benötigt als Angabe die Datenkanalnummer, 
die Datensatznummer und das Start-Byte innerhalb des 
Datensatzes. Die korrekte Schreibweise zum Beispiel für 
die Datensatznummer | über Kanal 1 mit Start-Byte 1 ıst: 


RECORD#1,1,1 


Mit dieser Anweisung würde das erste Zeichen des er- 
sten Datensatzes angesprochen (in diesem Fall also das 
erste Zeichen des Vornamens). Wenn auch für die Daten- 
satznummer eine Varlable verwendet wird, muß die An- 
weisung folgendermaßen geschrieben werden: 


RECORD#1,(DN) ,1 


Auf diese Weise muß für jedes Datenfeld eine 
RECORD#-Anweisung gegeben werden. Zum Beispiel 
würde dıe RECORD-Anweisung für die Lieblingsfarbe, 
die ınnerhalb des Datensatzes mit Byte 117 beginnt, fol- 
gendermaßen geschrieben: 


RECORD#1,(DN),117 


Bis hierher wird jedoch ein bestimmter Sektor bezie- 
hungsweise eine bestimmte Spur auf der Diskette nur an- 
gesprochen; den eigentlichen Schreibvorgang über- 
nımmt — genau wie beim Schreiben auf den Bildschirm 
— die PRINT-Anweisung. Jedoch wird hier die PRINT- 
Anweisung durch ein Nummernzeichen, nämlich die 
Nummer des Datenkanals, ergänzt. Soll also zum Beispiel 
eın Vorname auf Diskette geschrieben werden, ist die 
korrekte Anweisung: 


PRINT#1,VN$ 


Zum Abschluß des gesamten Aufzeichnungsvorgangs (al- 
so nachdem eın kompletter Datensatz auf Diskette ge- 
schrieben wurde) wird entweder der Datenkanal wieder 


geschlossen oder ein weiterer Datensatz übertragen. Die 
notwendige BASIC-Anweisung zum Schließen eines Ka- 
nals lautet DCLOSE# (engl. »schließen«. Als Angabe 
wird die Datenkanalnummer eingegeben. Bei diesem 
Beispiel also: 


DCLOSE #1 


Es ıst auch möglich, DCLOSE ohne Nummernzeichen und 
ohne die Angabe eines Datenkanals zu programmieren. 
In dıesem Fall werden alle eventuell geöffneten Daten- 
kanäle gleichzeitig geschlossen. 

Mit Hilfe dieses Wissens kann nun das bisherige Listing 
in den Zeilen ab 3350, die bei der vorhergehenden Lek- 
tion lediglich mit REM-Anweisungen gefüllt waren, 
ergänzt werden. 

Hinweis: Alle ın dieser Lektion abgedruckten Listing- 
Ergänzungen finden sich auf der Begleitdiskette unter 
dem Dateinamen »LEKTION 7«. 


rem daten abspeichern 
dopen#1,(dn$), 1234 
 record#1,(dn),1:print#1 ,vn$ 
record#l,(dn), ce:print#l,r98 
 record#1, (dn) ,43:print#1l,st$ | 
record#1, (dn) RE ee 
HZ), 4) 
record#1, (ana ‚69: 
5 record#1, cdn),80: 


Ines. wWo$S 
print#1l,tn$ 


recerd#1, tin, 1006: 
5 record#l, Cd), 113: 
record#1,(dn),115: 


TSCKi). 3. 


3715 


IH. 


7329 


3430. 


+33 


3440 


SsTıa 


340: 


E48 


=470 bekuen 


record#1, dm) 117: 
Fecard#1, Can), ieh: 
i% 73 
record#1,(dn), 1568: 
Li: 
recoard#1Cdn], 187: 
1,98: 
record#1l, (dn)!,206: 


record#1,(dn), 
record#1,(dn), 


record#1,(dn), 


dclose#l 


print#1l,gb$ 


print#1,vh$ 


nt nn 


SrineSt. IF$ 
print#i, les 
print#1,1s® 
print#il,eas 
prınt#]l,eb$ 
PLINEHL , ect 
print#1,ed$ 


print#1,ee$ 


Mit Zeile 3360 wird der Datenkanal | zur Diskettenstation 
eröffnet und dıe Anzahl der Byte pro Datensatz angege- 
ben. Ab Zeile 3370 wird mit Hilfe der RECORD H#- 
Anweisung die aktuelle Datensatznummer und das Start- 
Byte jedes Datenfeldes angegeben. In der gleichen Zeile 
erfolgt durch die PRINT#-Anweisung die Übertragung 
des Varlablenwertes (Zeichenkette oder Zahlenwert). 


Eine Besonderheit bieten hier die Programmzeilen 3385 
und 3410. Sıe finden dort ein neues BASIC-Wort: Es han- 
delt sich um die Funktion RIGHT$ (engl. »rechts«, ausge- 
sprochen »Rait-String‘). Mit der RIGHT$-Funktion kann 
man eine beliebige Anzahl von Zeichen aus einer Zei- 
chenkette abtrennen beziehungsweise herausfiltern, und 
zwar von der rechten Stelle (also vom letzten Zeichen) 
aus gezählt. Die Zeichenkette selbst bleibt dabei in voller 
Länge erhalten. Beispiel: 


PRINT RIGHT$ ("FRANKFURT",4) [RETURN] 
FURT 


READY. 
“ 


Durch die RIGHT$-Funktion werden also in diesem Fall 
dıe vier rechten Zeichen des Wortes »FRANKFURT« ab- 
getrennt. Es ıst dabeı auch möglich, die Zeichenkette 
durch eine Varlable zu ersetzen: 


A$="FRANKFURT" [RETURN] 
PRINT RIGHT$(A$,4) [RETURN] 
FURT 


READY. 
Lo 


Die Zeichenkette von A$ bleibt dabei unberührt. Sie 
können das durch PRINT A$ [RETURN] leicht feststellen. 
BASIC bietet natürlich nicht nur die Möglichkeit, eine Zei- 
chenkette von rechts aus ın einen Teil-String zu spezifizie- 
ren, sondern auch von links und der Mitte. Folgerichtig 
werden diese Funktionen als LEFT$ (engl. »links«) und 
MID$ (engl. »Mitte«) bezeichnet. Beispiel: 


PRINT LEFT$("FRANKFURT",5) [RETURN] 
FRANK 


READY. 
Art 


In diesem Fall werden die ersten fünf Zeichen des Wor- 
tes »FRANKFURT« ausgegeben. Und weiter: 


PRINT MID$("FRANKFURT",2,6) [RETURN] 
RANKFU 


READY. 
ir 


Hier werden mit dem zweiten Zeichen beginnend sechs 
Zeichen ausgegeben. Natürlich können auch bei LEFT$ 
und MID$ anstelle der Zeichenketten Variablen einge- 
setzt werden, also LEFT$(A$,5) und MID$(A$,2,6). Die 
Zahlenwerte für diese Funktionen können frei bestimmt 
werden, Jedoch dürfen sıe dıe Gesamtlänge der Zeichen- 
kette nıcht überschreiten. Will man erfahren, aus wievie- 
len Zeichen eıne Zeichenkette besteht, kann man dies mit 
den LEN-Funktion (engl. »Länge«) erfahren. Beispiel: 


PRINT LEN("FRANKFURT") [RETURN] 


READY. 


Auch hıer ıst die Angabe einer Variablen erlaubt: PRINT 
LEN(A$). Im zweiten Teil dieses Buches wird auf die nutz- 
volle Anwendung dieser Funktionen noch ausführlich ein- 
gegangen. Hier an dieser Stelle wird in den Programm- 
zeilen 3385 und 3410 lediglich die RIGHT$-Funktion ver- 
wendet. Das hat folgenden Grund: Allen numerischen 
Werten (also Zahlenwerten) wird von seiten des Betriebs- 
systems eine Leerstelle vorangestellt, die — für den An- 
wender unsichtbar — das Vorzeichen des numerischen 
Wertes enthält. Im Normalfall ıst dies ein Pluszeichen (+) 
zur Kenntlichmachung, daß es sich um einen positiven 
Zahlenwert handelt. Man kann auch mit negativen Wer- 
ten arbeiten, indem man der betreffenden Zahl ein MIı- 
nuszeichen (-) voranstellt. Bei einer PRINT-Anweisung 
wırd das Mıinuszeichen angezeigt. Ein Pluszeichen hinge- 
gen wird nıcht angezeigt. Es erscheint lediglich ein Leer- 
feld. Bei der Eintragung der numerischen Variablenwer- 
te ın die Bildschirmmaske ıst Ihnen dies zum Beispiel bei 
der Postleitzahl sıcher schon aufgefallen. 

Bei der Abspeicherung der Datenfelder auf Diskette ıst 
es zwar möglıch, auch numerische Werte mit Hilfe der 
PRINT #-Anweisung zu übertragen. Doch erstens können 
sıch beim späteren Lesen der Werte Probleme ergeben 
(das gilt allerdings nıcht für Computertechnologie im all- 


gemeinen, sondern trıfft nur für den Commodore-Betrieb 
zu) und zweitens beansprucht das unsichtbare Vorzeı- 
chen eın Byte Speicherplatz auf der Diskette. Nutzt man 
zum Beispiel tatsächlich dıe maximale Anzahl von Da- 
tensätzen pro Diskette (65.535) und überträgt man dabei 
nur 1/3 numerische Werte, so werden immerhin 21.845 
Byte nur von den unsichtbaren Vorzeichen beansprucht. 
Aus diesem Grund wird grundsätzlich empfohlen, nume- 
rische Werte mit Hilfe der STR$-Funktion (vergleiche 
Lektion 6) zum Abspeichern in eine Zeichenkette umzu- 
wandeln. Definiert man nun zum Beispiel die Postleitzahl 
(Variable pz) mit str$(pz) als Zeichenkette, so wird das un- 
sichtbare Leerzeichen mit übernommen. Da dieses Leer- 
zeichen zur Abspeicherung einer Zeichenkette jedoch 
nıcht erforderlich ıst und lediglich Speicherplatz fort- 
nimmt, wird in der Zeile 3385 mit Hilfe der RICGHT$- 
Funktion durch right$(str$(pz),4) das links an erster Stelle 
stehende Leerzeichen abgetrennt, wodurch nur die vier 
Ziffern der Postleitzahl auf Diskette geschrieben werden. 
Das gleiche Prinzip verwendet auch Zeile 3410. Hıer wird 
von dem numerischen Wert der Kınderzahl (Variable ki) 
durch right$(str$(ki),1) das unsichtbare Leerzeichen ab- 
getrennt und nur die Kınderzahl selbst als Zeichen auf 
Diskette geschrieben. 

Nach der Sıcherung eines kompletten Datensatzes wird 
der Datenkanal zum Diskettenlaufwerk geschlossen (Zei- 
le 3460) und zur Eingaberoutine zurückgekehrt (Zeile 
3470). Gemäß den bereits existierenden Programmzeilen 
3720 bıs 3740 erfolgt dann die Abfrage, ob die Eingabe 
von Daten fortgesetzt oder abgebrochen werden soll. Im 
Falle des Fortsetzens erhöht sıch dıe Datensatznummer 
(Variable dn) um Eins, und eine neue Eingabe kann be- 
gınnen. Im anderen Fall kehrt das Programm zum Daten- 
eingabemenü zurück (Zeile 3730). 

An dieser Stelle soll das Programm nun durch einen be- 
sonderen Komfort ergänzt werden: Während der norma- 
len Dateneingabe erhöht sıch dıe Datensatznummer fort- 
laufend. Bricht man die Eingabe jedoch ab, um sie zu 
einem späteren Zeitpunkt fortzusetzen, steht der Zähler 
der Datensatznummer wieder auf Null, weil nırgendwo 
dn mit der zuletzt erreichten Datensatzzahl festgehalten 
wird. Nun wäre es zwar möglich, vor Abbruch der Einga- 
be zu notieren, welche Datensatznummer als letztes ge- 
speichert wurde und beı der Erweiterung der Dateı mit 
der darauffolgenden Zahl fortzufahren, doch dieser Auf- 
wand sollte ın einem guten Datenverwaltungsprogramm 
nıcht notwendig sein. Vielmehr bietet sıch als Lösung an, 
den Wert der zuletzt erreichten Datensatznummer sepa- 
rat auf Diskette zu speichern und bei einer Erweiterung 
der Dateı einzulesen. Mit dem bekannten Zählvorgang 


dn=dn+| wird dieser Wert dann wiederum jeweils 
erhöht, so daß die Dateneingabe stets korrekt fortgesetzt 
wird. 

Ein Beispiel: In die Datei ADRESSEN’ werden fünfzehn 
Datensätze eingegeben und auf Diskette gespeichert. Die 
Datensatznummer (dn) hat zu diesem Zeitpunkt den Wert 
15. Dieser Wert wird nun in einer separaten Datei auf 
Diskette gespeichert. Will man nun die Datei »ADRES- 
SEN« ergänzen, also den sechzehnten Datensatz einge- 
ben, wird die separat gespeicherte Datensatznummer 
eingelesen und der Variablen dn zugewiesen. Durch den 
Zählvorgang dn=dn+| nımmt dn den Wert 16 an, und 
die Eingabe des sechzehnten Datensatzes kann erfolgen. 
Durch diese Methode kann nie der Fehler entstehen, daß 
man einen bereits existierenden Datensatz mit neuen Da- 
ten überschreibt. 

Der Programmiıeraufwand, der hierfür betrieben werden 
muß, ıst äußerst gering. Es genügen folgende drei Zeilen: 


3335 > donenne, "Sant can®),. ao, uB, w: ;printne 
„Aangciosene 0.0... onen 
3340 return 


Da es sıch beı der Sicherung der Datensatznummer um 
nur einen Wert handelt, muß hierfür keine Relative Datei 
mit Angabe der Satzlänge und so weiter eröffnet werden. 
In dıesem Fall genügt eine Sequentielle Datei. Die erfor- 
derlichen Anweisungen sınd fast ıdentisch mit denen der 
Relatıven Dateı. Lediglich die DOPEN #-Anweisung muß 
etwas anders geschrieben werden und benötigt folgende 
Angaben: 


Die korrekte Eingabe der DOPEN #-Anweiısung zum Er- 
öffnen einer Sequentiellen Datei wäre also zum Beispiel: 


DOPEN # 2, "DATEINAME"' ,DO,U8,W 


Anstelle der Zeichenkette kann auch eine Variable eın- 
gegeben werden, die in Klammern gefaßt sein muß: 


DOPEN #2, (DN$) ,DO,U8,W 


In Zeile 3335 sehen Sie die DOPEN #-Anweisung In einer 
erweiterten Form. Hier wird nicht nur der bereits existie- 
rende Dateiname (Variable dn$) angegeben, sondern 
»Sdn« vorangestellt. Das hat folgenden Grund: Unter dem 
Dateinamen dn$, der zum Beispiel "adressen' heißen 
kann, werden beliebige Datensätze abgespeichert. Beı 
Abbruch der Eingabe soll dıe aktuelle Datensatznummer 
in einer Sequentiellen Datei festgehalten werden, damit 
bei einer späteren Erweiterung der Dateı darauf zurück- 
gegriffen werden kann. Da Jedoch das Datenverwal- 
tungsprogramm in der Lage ist, mehrere Dateien anzule- 
gen, könnte es vorkommen, daß bei einem anderen Pro- 
grammablauf die Variable dn$ die Zeichenkette privat’ 
oder etwas anderes enthält. Um nun auseinanderzuhal- 
ten, zu welcher Datei eine abgespeicherte Datensatznum- 
mer gehört, wird der jeweilige Dateiname durch die Ver- 
knüpfung der Zeichen »dn« mit dem jeweiligen Namen 
der eigentlichen Datendateı definiert. Wenn also dıe be- 
arbeitete Datendatei »adressen« heißt, wird die Daten- 
satznummer unter dem Namen »dnadressen« abgespel- 
chert. Heißt dıe bearbeitete Datendatei »privat«, wird beı 
Abbruch die Datensatznummer unter dem Dateinamen 
»dAnprivat« abgespeichert und so weiter. 

Auch das Paragraphenzeichen (8), das den Zeichen »dn« 
vorangestellt ıst, hat natürlıch einen Sınn. In Lektion 3 
wurde bereits darauf hingewiesen, daß eın Dateiname 
nie zweimal auf der gleichen Diskette benutzt werden 
kann, es sei denn, man setzt ein @-Zeichen voran (also 
"@DATEINAME') Dabeı wırd aber die alte Version 
überschrieben. Beı gedrückter ASCIVDIN-Taste stellt 
der Commodore 128 jedoch kein @-Zeichen zur Verfü- 
gung. Wıll man also eine Diskettendateiı überschreiben, 
muß man die ASCIVDIN-Taste lösen, um das @-Zeichen 
eingeben zu können. Beim Zurückschalten ın den DIN- 
Modus verändert sich das @-Zeichen zu einem $-Zel- 
chen. Sıe können sıch Jedoch den gesamten Umstand des 
Umschaltens auch sparen und beim Überschreiben einer 
Datei gleich das 8-Zeichen statt des @-Zeichens einge- 
ben. Dies funktioniert allerdings nur ım DIN-Modus. 

In Programmzeile 3335 ist das Überschreiben der Se- 
quentiellen Datei, dıe dıe Datensatznummer enthält, un- 
bedingt notwendig, weıl bei mehrfachen Erweiterungen 
einer Datendatei immer wieder unter dem gleichen Na- 
men die jeweils letzte Datensatznummer abgespeichert 
wird. Nur beim ersten Benutzen einer Datei existiert noch 


keine abgespeicherte Datensatznummer, so daß in die- 
sem Fall auf das $-Zeichen verzichtet werden könnte. 


Nun aber zurück zu den Programmzeilen 3330 bıs 3340. 
Da es sıch hierbei um ein Unterprogramm handelt, kann 
es nur von einem anderen Programmabschnitt durch 
eine GOSUB-Anweisung erreicht werden. Diese Verzwei- 
gung muß beı der Entscheidung für „Abbruch der Daten- 
eingabe« erfolgen, also in Programmzeile 3730, und zwar 
vor dem Rücksprung zum Dateneingabemenü ın Zeile 
300. Die Programmzeile 3730 muß also erweitert werden 
durch dıe GOSUB-Anweisung zur Zeile 3330: 


3730 if a$="A” or a$="a” then gosub 3330 
:00tc0 300 


An dieser Stelle können Sıe sıch mit einer Funktion ver- 
traut machen, die der Commodore 128 zum Ändern von 
Programmzeilen bietet: Es ıst nicht notwendig, die Zeile 
3/30 insgesamt neu einzugeben. Es genügt, wenn diese 
Zeile zunächst mit dem LIST-Befehl auf den Bildschirm 
gebracht wird und dann mit Hilfe der Cursortasten die 
Stelle angefahren wird, an der die Ergänzung eingetra- 
gen werden soll. Drücken Sıe dann nacheinander die Ta- 
sten [ESC] und [A], und tragen Sie die Ergänzung eın, 
also gosub 3330 und den Doppelpunkt. Die Anweisung 
goto 300 schiebt sıch dabeı automatisch nach rechts. 
Drücken Sıe dann [RETURN]. Es ıst dabeı nicht notwen- 
dıg, den Cursor bis zum Ende der Programmzeile zu fah- 
ren; dıe Zeile wırd vollständig mit der Ergänzung In den 
Arbeitsspeicher des Computers übernommen. Geben 
sie zum Abschluß nacheinander die Tastenfolge [ESC] 
und [C] eın. 

ESC stammt von dem englischen Wort »Escape« und be- 
deutet wörtlich »Flucht«. Mit der [ESC]-Taste können meh- 
rere Funktionen aufgerufen oder auch programmıert 
werden. Man spricht ın diesem Zusammenhang von 
»Fluchtsequenzen«. Besonders beı der Änsteuerung von 
Druckern (Lektion 10) haben Fluchtsequenzen Bedeu- 
tung. Im Direktmodus des Commodore wird mit [ESCHA] 


die Einfügefunktion eingeschaltet und mit [ESC]-[C] wıe- 
der ausgeschaltet. 

Nachdem nun die Eingabe und Abspeicherung eınes 
kompletten Datensatzes einschließlich der Sıcherung der 
Datensatznummer vollzogen ist, können die beiden weite- 
ren Auswahlpunkte des Dateneingabemenüs strukturiert 
und programmiert werden. 


Auswahlpunkt: Auswahlpunkt: 
Datei ergänzen Eingegebene Daten ändern 


Gespeicherte Datensatz- Datenkanal öffnen 
nummer lesen 


Datensatznummer um 1 Aufgerufenen Datensatz 
erhöhen von Diskette lesen 


UP: Datensatznummer in UP: Datensatznummer in 
Bildschirmmaske Bildschirmmaske 


Zur Eingaberoutine Zur Eingaberoutine 


Struktogramm der Auswahlpunkte 2 und 3 des Dateneingabemenüs 


4000 rem bestehende datei ergaenzen 

4010 dopen#2, ”dn"+(Cdn$),dO,u8 

4020 input#e,dn | 

4030 dclose#o 

4040 dn=dn+1 Ei 

4050 gosub 3250: goto 3520 

4500 rem eingegebene daten aendern. 

4510 dopen#1, (dn$) 

4S5P0 record#1,(dn),1:input#1,vn&:char 1, 
10,3,v18,1 

4530 record#1,(dn) , PR: input#1,nn$:char 1 
‚10,4,nn$,1 

4540 record#1,(Cdn),43:input#1,st$:char 1 
‚10,5,st$,1 


7 input#L, ı1f8: 


6: input#1,1e5- 


4630 record#1, canı ‚147: input#1, 1s$:char 
41,158,13, 388.1. an I 
4640 record#l, can) ‚168: input#1, ‚eaS:char 
4, oinsisanin en 
4650 record#1, an) ‚179: input#l, eb$:char 
i.306 15. 008,1 me Ei 
4650 record#1, Can) ‚187: input#l, ‚ec$:char 
4.33 IB,B08,1. EI I 
4670 record#1, can) 198: input #1, eds: char 
1.32.15,808, 1. EI EL 
4680 renora#i, Cdn) 206: input#1, erpgeistt 
1,11.37,888,1| ee 
4690 dcelose#1 

4700 bosüb 3250:50t8 3520 

S000 rem daten ausdrucken 
ee 

5020 rem lektion 10 


Eine bereits existierende Datendatei zu ergänzen, bedarf 
dank des bisherigen komfortablen Programmaufbaus 
keines großen Programmieraufwandes. Es müssen ledig- 
lich die Zeile 4000 bis 4050 ergänzt werden. Mit Zeile 
4010 wird der Datenkanal 2 zum Lesen der zuletzt benutz- 
ten Datensatznummer eröffnet. Die DOPEN #-Anweiısung 
ist dabei mit der zum Schreiben der Datensatznummer 
(Zeile 3335) fast identisch. Lediglich dıe Angabe »w« kann 
fortfallen »w« bezieht sich auf »write«, engl. »schreiben«). 

Genau wie beı der Eingabe von Daten über dıe Tasta- 
tur, wird auch zum Lesen von gespeicherten Daten die 
INPUT-Anweisung verwendet. In diesem Fall muß INPUT 
jedoch durch ein Nummernzeichen und dıe Angabe des 
Datenkanals ergänzt werden (im vorliegenden Programm 
also input#). Mit Zeile 4030 wird dıe Datei wieder 
geschlossen und anschließend ın Zeile 4040 dıe gelesene 
Datensatznummer um Eins erhöht. Zum Abschluß ver- 
zweigt Programmzeile 4050 zum Unterprogramm für den 
Aufbau der Bildschirmmaske und danach zur Eingabe- 


routine für die einzelnen Datenfelder. Dort können dann 
mit der aktuellen Datensatznummer weitere Datensätze 
eingegeben werden. 

Zur Änderung von bereits eingegebenen Daten muß 
ebenfalls der Datenkanal zur Diskettenstation eröffnet 
werden (Zeile 4510). Auf dıe Angabe der Datensatzlänge 
kann jedoch beim Lesen von Daten verzichtet werden. 
Genau wie beı der Sequentiellen Datei vollzieht sich bei 
einer Relatıven Dateı der eigentliche Lesevorgang mit 
der INPUT#-Anweisung. Jedoch muß hier noch mit Hilfe 
der RECORDH#-Anweisung der Lesekopf des Disketten- 
laufwerks auf das entsprechende Byte des Datenfel- 
des ınnerhalb des Datensatzes positioniert werden. Die 
RECORD +#-Anweisung wırd dabeı exakt ın der gleichen 
Form eingegeben wie beim Speichern der Daten. 

Als neues BASIC-Wort finden Sıe in Zeile 4550 und 4600 
die VAL-Funktion (vom engl. »value«, deutsch »Wert«. Mit 
dieser Funktion ist es möglich, eine Zeichenkette, die nur 
Zahlen enthält, ın einen numerischen Wert umzuwandeln. 
Die VAL-Funktion ıst also das genaue Gegenteil der 
STR$-Funktion. 

In den Zeilen 4550 und 4600 wird dıe VAL-Funktion benö- 
tigt, weil die numerischen Werte der Postleitzahl (Varıa- 
ble pz) und Kınderzahl (Variable kı) beim Abspeichern 
durch die STR$-Funktion in eine Zeichenkette umgewan- 
delt worden sınd. Wie zuvor schon erklärt, wurde diese 
Maßnahme eingesetzt, um Speicherplatz zu sparen. Jetzt, 
beim Einlesen der gespeicherten Daten, müssen die als 
Zeichenketten gespeicherten Zahlen mit der VAL- 
Funktion wieder ın numerische Werte umgewandelt wer- 
den, damit sıe sıch als solche weiterverarbeiten lassen. 
Neu ıst auch die erweiterte Form der GET-Anweisung, 
mit der normalerweise einzelne Eingaben über die Ta- 
statur gelesen werden. Wird die GET-Anweisung Jedoch 
durch ein Nummernzeichen und eine Datenkanalnummer 
ergänzt, kann man mit dieser Funktion eın einzelnes Zel- 
chen (Byte) von der Diskette lesen. Da dıe Datenfelder 
für die Angabe »verheiratet« und »Kinder« jeweils nur ein 
Byte beanspruchen, bietet sich zum Lesen dieses Byte 
die GET#-Anweisung anstelle der INPUT#-Anweisung 
an. Neben den INPUT#- beziehungsweise GET#-An- 
weısungen finden sıch ın den Zeilen 4500 bıs 4680 noch 
CHAR-Anweisungen, mit deren Hilfe dıe gelesenen Da- 
ten an die betreffenden Positionen der Bildschirmmaske 
plazıert werden. 

Zum Abschluß des Datenlesevorgangs wird ın Zeile 4690 
der Datenkanal wıeder geschlossen. Danach verzweigt 
das Programm zunächst zum Unterprogramm 3250, um 
die Datensatznummer in die Bildschirmmaske einzutra- 
gen und danach zur Eingaberoutine, mit der die ge- 


wünschten Änderungen in den aufgerufenen Datensatz 
vorgenommen werden können. Nach Abschluß der Eın- 
gabe speichert dann das Programm den geänderten Da- 
tensatz unter der angegebenen Datensatznummer ab, wo- 
durch der ehemalige Eintrag überschrieben wird. 

Durch die Verzweigung in die Eingaberoutine, die bei 
der Abfrage »Weiter oder Abbruch (W/A) verlassen 
werden kann, entsteht ein kleines Problem: Bei Abbruch 
wird durch die Verzweigung ins Unterprogramm 3330 
dıe aktuelle Datensatznummer abgespeichert. Bei einer 
Änderung ist dies jedoch nicht die letzte Datensatznum- 
mer der Datei, sondern die des zur Änderung aufgeru- 
fenen Datensatzes. Hier würde also die falsche Num- 
mer abgespeichert. Um dies zu verhindern, muß eine 
IF- ... THEN-Anweisung eingefügt werden: 


1 


:67’0 gosun 2950: gosub 300: goto 45DO 


Der Sinn dieser Zeile ist folgender: Bei Aufruf der Ände- 
rungsfunktion ım Dateneingabemenü wird die Taste [3] 
gedrückt. Danach fragt das Programm nach der zu 
ändernden Datensatznummer und verzweigt in die Ände- 
rungsroutine. Da bis zum Abspeichern des geänderten 
Datensatzes keine Eingabe mit getkey a erfolgt, ist der 
Variablen a noch der Wert 3 zugewiesen. Mit Programm- 
zeile 3725 wird ganz einfach gefordert »Wenn a=3 ist, 
dann gehe zur Zeile 300«, das heißt, wenn Menüpunkt 3 
(Ändern eingegebener Daten) aufgerufen wurde, dann 
speichere dıe Datensatznummer nicht ab, sondern ver- 
zweige sofort wieder zum Dateneingabemenü. 

An dieser Stelle kann auch der Aufruf der Änderungs- 
routine vom Hauptmenü aus ergänzt werden (siehe Zeilen 
100 und 1000 bis 1060). Selbstverständlich wird hierfür 
dıe gleiche Routine benutzt, die auch vom Dateneingabe- 
menü aus aufgerufen wird. Es muß lediglich eine Zeile 
hinzugefügt werden: 


s’e> 1 2-2 Den gbte 3% 


Mit dieser Zeile verzweigt das Programm nach Eingabe 
des Dateinamens zum Unterprogramm 2950, um die Eın- 
gabe der zu ändernden Datensatznummer abzufragen, 
danach zum Unterprogramm 3000, um die Bildschirmmas- 
ke aufzubauen und schließlich zur Zeile 4500, wo die 
eigentliche Änderungsroutine beginnt. Auch hier hat die 
Programmergänzung mit Zeile 3725 ıhre Gültigkeit, weil 
sowohl ım Hauptmenü als auch ım Dateneingabemenü 
die Änderungsroutine mit Taste [3] aufgerufen wird. 

Zum Abschluß dieser Lektion noch eine kleine Verbesse- 
rung der Programmzeile 3740, zu der das Programm ge- 


langt, wenn nach dem AÄbspeichern eines Datensatzes 
die Eingabe fortgesetzt werden soll: Bislang blieben die 
Einträge in den Datenfeldern bis zum neuen Eintrag er- 
halten. Dadurch konnte es geschehen, daß Reste der al- 
ten Zeichen auf dem Bildschirm stehen blieben. Um dies 
zu ändern, sollte vor der Eingabe neuer Daten kurz ın 
das Unterprogramm zum Aufbau der Bildschirmmaske 
verzweigt werden. Dadurch werden alle alten Eintragun- 
gen gelöscht. Die notwendige Ergänzung (gosub 3000) 
wird in die bereits vorhandene Zeile 3740 eingefügt: 


3740 dnman+l:gosub 3000: gasub 3250: goto 
s5e0 


Auch hier sollten Sıe mit Hilfe der Fluchtsequenz 
[ESCHA] ın den Einfügemodus umschalten, dıe Ergän- 
zung einbringen und vor einem erneuten Programmstart 
mit [ESC}{C] wieder zurückschalten. 


Lektion 8 


Sortierroutinen 


In dieser Lektion wird vermittelt, mit welchen Programm- 
anweisungen gespeicherte Datensätze alphabetisch ge- 
ordnet werden können. Dabei gibt es die Möglichkeit, 
den Sortiervorgang für jedes einzelne Datenfeld durch- 
zuführen, das heißt alphabetisches Ordnen der Vorna- 
men, Nachnamen, Wohnorte und so weiter. Es lassen 
sıch auch Postleitzahlen ın aufsteigender Reihenfolge sor- 
tieren. Dies ıst zum Beispiel interessant, wenn man ein 
Massenrundschreiben verschicken will, bei dem minde- 
stens zehn Adressaten einem Postleitzahlbereich zugehö- 
ren müssen, wenn die Sendung als Massendrucksache 
von der Post akzeptiert werden soll. 

Doch bevor die hierfür notwendigen Programmzeilen 
eingegeben werden, Ist eine andere Ergänzung notwen- 
dig, dıe zwar aus der Sicht strukturierter Programmie- 
rung gänzlıch sınnlos erscheint, jedoch aus rein technıi- 
schen Gründen unumgänglich ist. 

Beim Abspeichern von Datensatzen in eine Relative Datei 
kommt es aufgrund der offenbar nıcht völlig ausgereiften 
Laufwerkstechnik gelegentlich zu Schreibfehlern, das 
heißt, einzelne Datenfelder werden falsch oder gar nicht 
gesichert. Bei dem Versuch, diese Daten später einzule- 
sen, ergibt sıch dann eın Lesefehler, bei dem das Disket- 
tenlaufwerk ohne Unterbrechung in Betrieb bleibt und 
der Computer während dieser Zeit blockiert. Der einzige 
Ausweg Ist das Drücken des RESET-Knopfes an der rech- 
ten Geräteseite oder das Abschalten des Computers. In 
beiden Fällen muß das Programm neu geladen werden. 
Um die korrekte Sicherung von Daten zu gewährleisten, 
empfiehlt sogar das Anleitungsbuch zum Diskettenlauf- 
werk, sämtliche Speicherbefehle doppelt ausführen zu 
lassen. Dadurch verdoppelt sich natürlich auch der Zeit- 
aufwand, der sıch bei der Datensicherung ohnehin er- 
gibt. Allerdings ıst es nıcht notwendig, die Anweisungen 
der Zeilen 3370 bis 3450 noch einmal einzugeben. 
Glücklicherweise bietet BASIC eine Anweisung, mit der 
bestimmte Operationen mehrfach ausgeführt werden be- 
ziehungsweise so lange ausgeführt werden, bis be- 
stimmte Bedingungen erfüllt sind. Es handelt sich hierbei 
um die FOR... NEXT-Anweisung (engl. »für« und »nächst«. 


Genau wie bei der IF... THEN-Anweisung offenbart sich 
der eigentliche Sınn und die Funktionsweise von FOR- 
..NEXT erst im Zusammenhang mit den Bedingungen, 
die FOR und NEXT verbinden. Mit der FOR...NEXT- 
Anweisung werden Befehle, Anweisungen oder Funktio- 
nen In einer frei bestimmbaren Zahl von Durchläufen ver- 
arbeitet. Hierzu sind folgende Angaben notwendig: 


Als Zählvarıable kann Jeder beliebige numerische Varıa- 
blenname gewählt werden (zum Beispiel A,B,X,Y). Der 
Startwert ıst ein freibestimmbarer numerischer Wert (in 
der Regel nımmt man 0 oder ]). Der Endwert gıbt dıe An- 
zahl der gewünschten Durchläufe an. Gibt man zum Beı- 
spiel FOR X=1| TO 2 eın, so werden die Befehle, Anweı- 
sungen oder Funktionen, die bıs zur Angabe NEXT X fol- 
gen, zweimal ausgeführt, das heißt beı jedem Durchlauf 
wırd der Wert der Zählvarıablen um Eıns erhöht, bis der 
Endwert erreicht ıst. Beispiel: 


FOR X=1 TO 2:PRINT "TEST" :NEXT X 


Das Wort »TEST« erscheint darauhın zweimal auf dem 
Bildschirm. Sollen eine ganze Reihe von Befehlen, Anwei- 
sungen oder Funktionen innerhalb einer FOR...NEXT- 
Anweisung zur Ausführung kommen, so können sie ın 
mehrere Programmzeilen aufgeteilt werden. Beispiel: 


TEST 
EINGABE ZUM TEST TMm 


IESI 
EINGABE ZUM TEST rm 


READY. 
IN 


Die Angabe einer Schrittweite hat zur Folge, daß sich die 
Zählvarıable bei jedem Durchlauf nicht um Eins, sondern 
um den Wert der Schrittweite erhöht. Gibt man zum Beiı- 
spiel FOR X=0 TO 10 STEP 2 ein, so wird die Ausführung 
der Anweisung fünfmal wiederholt. Die Angabe einer 
schrittweite kann ın manchen Fällen sinnvoll sein; zum 
Beispiel wenn mit Hilfe einer FOR...NEXT-Anweisung 
eine Reıhe gerader (oder ungerader) Zahlen ausgegeben 
werden soll (siehe Seite 98 oben): 


30 ER X%=0 ID. 80 STIER 2... 
20 PRINT X 
So NEXT x. 


Hier entstehen durch die Angabe der Schrittweite zehn 
Durchläufe, bei denen ın diesem Fall die jeweiligen Wer- 
te der Zählvariable selbst auf den Bildschirm gebracht 


READY. 
mm 


werden. Auch negative Zahlen sind als Schrittweite zuläs- 
sig. Dann vermindert sich die Zählvariable mit jedem 
Durchlauf um den Absolutwert der Schnittweite. Zu be- 
achten ist hierbei, daß der Anfangswert der Zählvarıable 
höher ist als der Endwert. Beispiel: 


10 EOR X"e5 TO. 0 SIER "2 
e0O PRINT X 
30 NEXT X 


Als weitere Möglichkeit, können mehrere FOR...NEXT- 
Anweisungen ineinander verschachtelt werden. In der 
Programmierpraxis stellt dıes häufig eine enorme Er- 
leichterung dar. Auch hierzu ein Beispiel: 


iD FOR ©i1 ID 3.2.0... 20.02 
eo FOR Y-1 705 

40 NEXT Y 

SO PRINT 

60 NEXT X 


In dıesem Fall wırd also durch die FOR X-Anweisung 
dreimal dıe FOR Y-Anweisung ausgeführt, die ıhrerseits 
fünfmal ıhren eigenen Wert auf den Bildschirm bringt. 
Wichtig ıst bei der Verschachtelung von FOR...NEXT- 
Anweisungen, daß die korrekte Reihenfolge der NEXT- 
Angaben eingehalten wird. Die NEXT-Angabe muß sıch 
immer auf dıe vorangegangene FOR-Angabe beziehen. 


Insgesamt können beim Commodore 128 maximal 
neun FOR...NEXT-Anweisungen ineinander  ver- 


Nach diesen Übungen mit der FOR...NEXT-Anweisung 
kann wieder die Programmierpraxis für das Datenver- 
waltungsprogramm begonnen werden. Zunächst also die 
anfangs erwähnte Ergänzung zur Datensicherung. La- 
den Sie die bisherige Version mit DLOAD "LEKTION 7 
[RETURN] ın den Arbeitsspeicher des Computers, und 
ergänzen Sıe folgende Zeilen: 


3365 for x=1 to 2 
3455 next x 


Diese FOR... NEXT-Anweiısung bewirkt, daß der gesamte 
Vorgang des Sıcherns eines Datensatzes zweimal vollzo- 
gen wird. Dadurch erhöht sıch zwar die Wartezeit bis zur 
Eingabe eines neuen Datensatzes, Jedoch erhöht sıch 
auch dıe Gewißheit, daß dıe Daten tatsächlich abgesper- 
chert werden. Einfache und ineinander verschachtelte 
FOR...NEXT-Anweisungen werden auch für Sortierrou- 
tinen und die ın Lektion 9 behandelten Selektionsroutinen 
benötigt. Der Auswahlpunkt 5 ım Hauptmenü bringt fol- 
gendes Untermenü auf den Bildschirm: 


Datei sortieren 
alphabetisch sortieren 


nach Gbeburtstagen sortieren 


nach Wohnorten 
nach definierten Informationen 


Zurück zum Hauptmenü 
Hi N. ln ln siliiin. mil 


Ihre Eingabe: 


Alphabetisch sortieren 


Mit diesem Auswahlpunkt werden aus einer Dateı alle 
Nachnamen von Personen ın aufsteigender alphabetı- 
scher Reihenfolge sortiert. 


nach Geburtstagen sortieren 


Da dieses Datenverwaltungsprogramm auch für rein pri- 
vate und spielerische Anwendung konzipiert ist, können 
unter diesem Auswahlpunkt die gespeicherten Geburts- 
tage chronologisch geordnet werden. 


nach Wohnorten sortieren 


Bei geschäftlichen Anwendungen ist es häufig sinnvoll, 
Kunden nicht nach Nachnamen, sondern nach Wohnor- 
ten zu ordnen. Mit dem Auswahlpunkt 3 dieses Unter- 
menüs wird der entsprechende Sortiervorgang ermög- 
licht. 


nach definierten Informationen sortieren 


Um dem Anwender zu ermöglichen, eine Datei nach 
selbstbestimmten Kriterien zu sortieren, wurde dieser 
Auswahlpunkt im Sortiermenü hinzugefügt. Hier wäre es 
zum Beispiel möglich, eine Datei nach der Anzahl der 
Kinder zu ordnen. 

Man könnte zunächst annehmen, für jeden Auswahlpunkt 
sei ein eigener Programmabschnitt notwendig. In Wirk- 
lichkeit wird jedoch nur eine einzige Routine benötigt, in 
der lediglich verschiedene Variablen eingesetzt werden. 
Um zu verstehen, wie Datensätze sortiert werden können, 
die unter bestimmten Datensatznummern fest auf Diskette 
gespeichert sind, muß folgendes vorangestellt werden: 
Beı professionellen Datenverwaltungsprogrammen wer- 
den nıemals die Datensätze selbst verändert oder in ihrer 
abgespeicherten Reihenfolge vertauscht. Es werden le- 
diglich die Eintragungen miteinander verglichen, und die 
sich daraus ergebende geordnete Folge von Datensatz- 
nummern wird ın eine eigene Sortierdatei gespeichert. 
Zum Beispiel enthält eine Datei folgende Einträge: 


Nr. Vorname Nachname Straße 
#1 Regına Matz Treffentrill 14 
#2  Erıka Weller Antoniıusstr. 58 


#3 Reiner Binder Mozartstr. 17 


Teil I | 


Struktogramm 
für die Sortierroutine 


102 


Wenn hier die Nachnamen in alphabetischer Reihenfolge 
geordnet werden sollen, liest das Programm mit Hilfe 
einer FOR... NEXT-Anweisung alle Datenfelder, die Nach- 
namen enthalten. Dank der tabellarischen Struktur der 
Relativen Datei ist dies ohne weiteres möglich, weil alle 
Nachnamen in jedem Datensatz mit Byte 22 beginnen. Die 
gelesenen Datenfelder werden miteinander verglichen 
und daraufhin die Datensatznummern geordnet. Diese 
geordnete Folge von Datensatznummern wird in eine 
eigene Sequentielle Datei abgespeichert. Beim obenste- 
henden Beispiel also dıe Folge #3, #1, #2. Danach kann 
man beim Auswahlpunkt »Daten lesen« die sortierte Datei 
aufrufen, mit der dann die jeweiligen Datensätze in der 
Reihenfolge der abgespeicherten Datensatznummern ge- 
lesen und auf dem Bildschirm oder einem Drucker aus- 
gegeben werden. In dıesem Fall also: 


Nr. Vorname Nachname Straße 

#3 Reiner Binder Mozartstr. 17 
#1] Regına Matz Treffentrill 14 
#2 Erika Weller Antoniusstr. 58 


Die ın der eigentlichen Datendatei abgespeicherten Da- 
tensätze bleiben von dem Sortiervorgang also praktisch 
unberührt. Um diese Sortierroutine in BASIC zu program- 
mieren und in das bestehende Datenverwaltungspro- 
gramm einzufügen, wird folgendes Struktogramm ent- 
wickelt: 


Eingabe Dateiname 


Eingabe Name der Sortierdatei 


Byte für RECODRD# bestimmen 


Datensatznummer lesen 


Datenkanal zum Lesen der Datensätze öffnen 


numerische und alphanumerische Sortiervariablen 
dimensionieren 


Schleife von x=1 bis x=-Anzahl Datensätze 


Index von s(x)=x 


Datensatz x s$(x) zuweisen 


Datenkanal schließen 


Schleife von i=l bis i-fAnzahl Datensätze -1 


Schleife von j=i+tl bis jJ=Anzahl Datensätze 


s$(i) $ s$(jJ) 
v 
hv=s(i) 
s(i)=-s(j) 
st j)=hv 


Datenkanal zur Sortierdatei öffnen 


Schleife von x=1 bis x=Anzahl Datensätze 


sortierte Datensatznummern speichern 


Datenkanal zur Sortierdatei schließen 


Variablenwerte auf Null setzen 


Zurück zum Hauptmenü 


Da ın diesem Struktogramm einige Begriffe vorkommen, 
die erst im Zusammenhang mit dem Listing erklärt wer- 
den können, folgen hier gleich die entsprechenden Pro- 
grammzeilen (auf der Begleitdiskette unter dem Dateina- 
men »LEKTION & abgespeichert): 


2280 record#1,(s(x)), Crn):input#1 ,s8(x) 


2290 3 x 


2210 For ı-ı ı to an- 1 


e330 if ss) <= 5509) then 2370 

essonveschh _ 

e3s0 stiJ="2ij} 

2360 s(j)=hv 

next ]J 

ee I u 
dopen#3, 5” + CSdE) ‚co, uB, M) 

Sonia aaa! 

print#3, s(x); 


_ Datei sortieren | 
alphabetisch sortieren 


nach Geburtstagen sortieren 


nach Wohnorten 
nach definierten Informationen 


Zurück zum Hauptmenü 


Eingabe Dateiname: ”? 
Name der Sortierdatei: ”? 
Record-Numner eingeben: ” 


Mit Zeile 2160 wırd zunächst durch eine IF... THEN- 
Anweisung überprüft, ob die GETKEY-Eingabe aus Zeile 
2150 den Wert 5 hatte. In diesem Fall erfolgt sofort die 
Rückführung zum Hauptmenü. Wurde hingegen ein Wert 
von 1 bıs 4 eingegeben, soll ın jedem Fall ein Sortiervor- 
gang stattfinden. Daher erfolgt in Zeile 2170 eine Ver- 
zweigung zum Unterprogramm 2900, wo der Name der 
Dateı erfragt wird, deren Daten sortiert werden sollen. 
In Zeile 2180 wird mit Hilfe der INPUT#-Anweisung der 
Name der Sortierdatei eingegeben, also der Name der 
Dateı, in der die geordneten Datensatznummern abge- 
speichert werden. Wenn zum Beispiel die Nachnamen 
der Datei »KUNDEN« alphabetisch geordnet werden sol- 
len, könnte die Bezeichnung der Sortierdatei »KUNDEN- 
NACHNAMEN« lauten. Die alphanumerische Variable 
für die Sortierdatei erhält hier den Variablennamen sd$. 
Die Zeilen 2190 bıs 2220 machen deutlich, wieso für alle 
Auswahlpunkte des Untermenüs nur eine einzige Routine 
notwendig ıst. Hıer werden nämlich die Datenfelder fest- 
gelegt, die beim Sortiervorgang miteinander verglichen 
werden sollen. Wurde Menüpunkt l gewählt (Nachna- 
men alphabetisch sortieren), so wird der Variablen rn 
(für RECORD-Nummer) der Wert 22 zugewiesen, weil die 
Nachnamen innerhalb der Datensätze mit Byte 22 begın- 
nen. Wenn Menüpunkt 2 gewählt wurde (nach Geburtsta- 
gen sortieren), erhält rn den Wert 104, weil die Geburts- 
daten ınnerhalb der Datensätze mit Byte 104 beginnen. 
Bei Menüpunkt 3 schließlich (nach Wohnorten sortieren) 
erhält rn den Wert 69, weil die Wohnorteintragungen mit 
diesem Byte beginnen. Zeile 2220 erlaubt zusätzlich, Da- 
tensätze nach einem selbstbestimmten Datenfeld zu sor- 
tieren (entsprechend Auswahlpunkt 4 des Menüs). Hier 
muß der Anwender die zutreffende Byte-Zahl für die 
RECORD #-Anweisung eingeben (siehe Tabelle Seite 80, 
Lektion 7). 

Nach der Definition des Datenfeld-Byte wird in Zeile 2230 
der Datenkanal 2 zur Diskettenstation eröffnet und die un- 
ter »dn« plus dem Dateinamen abgespeicherte höchste 
Datensatznummer eingelesen (vergleiche Lektion 7). Da- 
durch wird ermittelt, wieviele Datensätze eine Datei 
enthält. Anschließend wird mit Zeile 2240 der Datenkanal 
l zum Lesen der einzelnen Datenfelder eröffnet. 

Zeile 2250 enthält ein neues BASIC-Wort. Es handelt sıch 
um die Anweisung DIM (abgeleitet von »dimensioniere«). 
DIM ıst eine sehr nützliche und wichtige Anweisung: Bis- 
her wurde für Jede verwendete Varlable ein sinnentspre- 
chender Variablenname gewählt (zum Beispiel dn$ für 
»Dateiname«, vn$ für »Vorname«, pz für »Postleitzahl«). Es 
gıbt Jedoch Programmsituationen, in denen sehr viele Va- 
rıablen ähnlicher Art bearbeitet werden müssen. So auch 


ACOI=100 
At21J3=5 

AL2I=20O 
At3J=23 
AC4HI=200 
AtXS5J=-150 
Alb)=11 

AL 723-1 
ATB)=30U 
su 08 
ALC10I=7 
AI] 


in diesem Fall, wo bestimmte Datenfelder einer Datei sor- 
tiert werden. Wenn zum Beispiel eine Adressendatei 100 
Einträge enthält und ım Arbeitsspeicher des Computers 
beim Sortieren von Nachnamen somit 100 verschiedene 
Varlablen miteinander verglichen werden müssen, ist die 
Kapazıtät an möglichen Variablennamen bald erschöpft. 
Würde man zum Beispiel dem ersten eingelesenen Nach- 
namen den Variablennamen n1$, dem zweiten den Na- 
men n2$ und so weiter geben, so wäre nl1$ bereits nicht 
mehr möglıch, weıl das Betriebssystem des Commodore 
nur die ersten beiden Zeichen eines Varlablennamens In- 
terpretiert. Zwischen nl1$ und nl$ bestünde für den 
Computer kein Unterschied. 

BASIC bietet für Probleme dieser Art eine Lösung. Mit 
Hilfe der DIM-Anweisung kann ein einziger Variablenna- 
me benutzt werden, dem sıch durch die Angabe einer In- 
dexzahl mehrere unterschiedliche Werte zuweisen las- 
sen. Weil sıch auf dıese Weise gewissermaßen Varla- 
blenfelder gleichen Namens und unterschiedlicher Wer- 
te aufbauen lassen, wird in diesem Zusammenhang von 
Feldvariablen gesprochen. Die korrekte Schreibweise 
der DIM-Anweiısung für numerische und alphanumeri- 
sche Feldvariablen ıst: 


DIM A(Indexzahl) 
DIM A$(Indexzahl) 


Wird zum Beispiel dıe Anweisung DIM A(ll) gegeben, so 
stehen insgesamt 12 Variablennamen (die Null zählt mit) 
unter der Bezeichnung AlIndexzahl) zur Verfügung. Bei- 
spiel: 


In gleicher Weise können auch alphanumerische Werte 
(Zeichenketten) indizierten Feldvariablen zugewiesen 
werden. Für die drei oben genannten Namen sieht dies 
folgendermaßen aus: 


A$(1)="Matz" 
soyayeiiem) 


Wiıe grundsätzlich in BASIC können für alle numerischen 
oder alphanumerischen Angaben auch Variablen einge- 
setzt werden. Definiert man zum Beispiel die Variable X 
als den Wert 20, so reserviert der Computer bei der An- 
weisung DIM A(X) insgesamt 21. Auch die Zuweisungen 
der Feldwerte kann durch Variablen vorgenommen wer- 
den: Zum Beispiel All)=X oder A(X)=X. Im ersten Fall 
wird A(l) der Wert 20 zugewiesen, im zweiten Fall A(20) 
der Wert 20. Dieses Angabeprinzip ist natürlich auch auf 
alphanumerische Felder anwendbar; zum Beispiel DIM 
ASX):ASCK)=DNS. In diesem Fall wird A$(20) die Zei- 
chenkette der Variablen DN$ zugewiesen. 

Ein weiterer Schritt beim Arbeiten mit Feldvariablen be- 
steht darın, einen indizierten numerischen Wert als Feld- 
angabe für einen indizierten alphanumerischen Wert zu 
verwenden. Beispiel: 


DIM A(11) 

DIM A$(11) 

Alı)=5 
A$(A(1))="Weller" 


In diesem Fall wırd zunächst A(l) der Wert 5 zugewiesen 
(A(0) ıst Null), danach A$(65) die Zeichenkette '"'Weller', 
weıl der numerische Wert von ÄA(l) gleich 5 ist. Hat man 
— wie ın diesem Beispiel — zwei DIM-Anweisungen (oder 
mehr) zu geben, so muß nicht jeweils eine neue Zeile 
dafür eingegeben werden. DIM-Anweisungen lassen sich 
hintereinander eingeben, wenn sie durch ein Komma ge- 
trennt werden. Für den obenstehenden Fall also: 


DIM A(11),A$(11) 


Es gıbt darüber hinaus noch weiterführende Indizie- 
rungsmöglichkeiten für Feldvarıablen. Diese Aspekte 
werden ım zweiten Teil des Buches behandelt. 

Das Prinzip, numerische und alphanumerische Feldvarıa- 
blen kombiniert zu verarbeiten, wird auch bei der Sor- 
tierroutine ım vorliegenden Datenverwaltungsprogramm 
benötigt. Um die etwas kompliziert erscheinenden Pro- 


grammzeilen 2250 bis 2290 verständlicher zu machen, 
folgt zunächst gewissermaßen eine deutsche Überset- 
zung der BASIC-Anweisungen: 

2250: Dimensioniere eine numerische Feldvarlable mit 
dem Namen s und weise ıhr die Anzahl der Datensätze 
aus der zu sortierenden Datei als Index zu; dimensioniere 
eine alphanumerische Feldvariable mit dem Namen s$ in 
gleicher Weise. 

2260: Wiıederhole eine FOR...NEXT-Anweisung von x=]| 
bis x= Anzahl der Datensätze. 

2210: Weise den aktuellen Wert von x der entsprechen- 
den Komponente von s zu (also beim ersten Durchlauf 
s(l)=1, beim zweiten Durchlauf ist s(2)=2 und so weiter). 
2280: Positioniere den Lesekopf des Diskettenlaufwerks 
mit Hilfe der RECORD#-Anweisung auf den Datensatz 
s(x) und das Byte, das ın den Zeilen 2190 bıs 2220 als rn 
definiert wurde: Lies mit Hilfe der INPUT#-Anweisung 
das dort abgelegte Datenfeld und weise diese Zeichen- 
kette s$(x) zu. Beim ersten Durchlauf ist x=]; also positio- 
niert sich der Lesekopf des Diskettenlaufwerks auf Da- 
tensatz #1 und liest zum Beispiel einen Nachnamen, 
wenn rn=22 ıst. Dieser Nachname wird der Varlablen 
s$(1l) zugewiesen. Beim zweiten Durchlauf ist x=2. Es 
wird also Datensatz #2 gelesen und der Nachname der 
Variablen s$(2) zugewiesen und so weiter, bis alle Da- 
tensätze gelesen sınd, das heißt bıs der Wert von dn er- 
reicht ıst. 

2290: Nächster Durchlauf der FOR... NEXT-Anweiısung. 
Für Zeile 2280 kann noch eine kleine Zusatzerklärung fol- 
gen: Die Datenfelder wurden ım Unterprogramm 3350 
unter ıhren Eingabevarlablennamen abgespeichert, also 
vn$ für Vorname, nn$ für Nachname und so weiter. Beim 
Einlesen zum Sortieren wird nun s$ als Name verwendet. 
Dies ıst ohne weiteres möglıch. Numerische und alpha- 
numerische Werte können mit beliebigen Varlablen- 
namen untereinander vertauscht oder kopiert werden. 
So führt zum Beispiel eine Anweisung wie A$= 
"TEST’:B$=A$ dazu, daß sowohl A$ als auch B$ die Zei- 
chenkette "TEST" enthält. 


Zum eigentlichen Sortiervorgang, bei dem alle eingelese- 
nen Datenfelder miteinander verglichen werden, bis 
eine korrekte alphabetische Reihenfolge erreicht ist, 
werden zweı FOR...NEXT-Anweisungen ineinander ver- 
schachtelt. Die erste FOR...NEXT-Anweisung beginnt mit 
Zeile 2310 und wiederholt ihre Durchläufe mit der Varia- 
blen ı von 1 bis zur Anzahl der Datensätze minus |]; die 
zweite FOR...NEXT-Anweisung beginnt mit Zeile 2320 
und wiederholt ıhre Durchläufe mit der Variablen j vom 
aktuellen Wert ı plus 1 bis zur Anzahl der Datensätze. Mit 
Zeile 2330 wird dann geprüft, ob die Zeichenkette von 
s$(i) kleiner oder gleich der Zeichenkette von s$(j) ist. 
Trifft diese Bedingung zu, wird das Programm mit dem 
nächsten Durchlauf von j und danach mit dem nächsten 
Durchlauf von ı fortgesetzt. Im andern Fall werden die 
Datensatznummern si) und s(j) vertauscht und dadurch 
s$(i) und s$(j) in die richtige Reihenfolge gebracht. 
Praktisch bedeutet dies: Beim ersten Durchlauf beider 
FOR...NEXT-Anweisungen ist i gleich 1 und j gleich i+l, 
also 2. Beim Lesen der Datenfelder in Zeile 2280 wurde 
sowohl s$(l) als auch s$(2) eine Zeichenkette zugewiesen. 
Die Indexangaben ı und j] sind somit gleichbedeutend mit 
l und 2. Der eigentliche Vergleich, ob s$(i) in der alpha- 
betischen Reihenfolge vor oder hinter s$(j) stehen muß, 
wird vom Computer quası automatisch übernommen, in- 
dem die Anweisung if s$(i) <=s$() then... gegeben wird. 
Der Computer vergleicht nämlich die ASCII-Codes die- 
ser Zeichenketten (vergleiche Lektion 5). Danach ist zum 
Beispiel »B« mit dem ASCII-Code 66 größer als »A« mit 
dem ASCII-Code 65. Beim zweiten Durchlauf von j ist i 
nach wie vor |, ] jedoch 3. In Zeile 2330 wird somit s$(1) 
mit s$(3) verglichen und in die richtige Reihenfolge ge- 
bracht. So setzen sıch die Durchläufe von j fort, bis die 
Anzahl der Datensätze, also die höchste Datensatznum- 
mer erreicht ıst. Erst dann beginnt die Zählvariable ı mit 
dem zweiıten Durchlauf, wobei ıhr Wert gleich 2 ist. ]J ist 
nun wiederum I+1, also 3, so daß in Zeile 2330 die Zei- 
chenketten s$(2) und s$(3) verglichen werden. Auf diese 
Weise werden sämtliche gelesenen Datenfelder mitein- 
ander verglichen, bis die richtige alphabetische Reihen- 
folge erreicht ist. 

Der Austausch der Datensatznummern wird in den Zeilen 
2340 bis 2360 vorgenommen. BASIC-Dialekte anderer 
Computer verfügen in der Regel über eine spezielle An- 
weisung zum Austausch von zwei Variablenwerten. Beim 
Commodore-BASIC fehlt eine solche Anweisung, so daß 
hier mit einer Hilfsvariablen gearbeitet werden muß. Sie 
trägt ın dıesem Fall den Namen hv (für »Hilfsvariable«) 
und nımmt — wenn ein Austausch notwendig wird — den 
Wert von si) an, das heißt die Datensatznummer, die in 


der Komponente ı der Variablen s gespeichert ist. Dar- 
aufhin wird der Wert von s(j) an si) übergeben (Zeile 
2350) und zum Abschluß s() mit dem Wert der Hilfsvaria- 
blen belegt. Dieser Algorithmus bewirkt also, daß die 
Datensatznummer s(i) mit Datensatznummer s() ver- 
tauscht wird. Dadurch entsteht eine andere Reihenfolge 
innerhalb der Datensatznummern. Im Fall der drei Na- 
men am Anfang dieser Lektion wäre zum Beispiel die 
Reihenfolge s(1)=2, s(2)=3, s(3)=1 entsprechend der kor- 
rekten alphabetischen Reihenfolge »Binder«, »Matz« und 
»‚Weller«. 

Diese neue Reihenfolge der Datensatznummern wird ın 
einer eigenen Sequentiellen Datei unter dem zuvor ein- 
gegebenen Dateinamen (sd$) abgespeichert (Zeilen 2390 
bis 2430). Beim späteren Lesen einer sortierten Datei 
greift das Programm auf die sortierte Liste der Datensatz- 
nummern zurück und gibt dıe dazugehörenden Datensät- 
ze aus. Beim einfachen Lesen wird hingegen die chrono- 
logische und damit unsortierte Reihenfolge der Daten- 
satznummern zugrunde gelegt. 

Zeile 2440 bringt abschließend einen neuen BASIC- 
Befehl. Er heißt CLR und stammt von dem englischen 
Wort »Clear« (b»klar«, »Kklarmachen«, »aufräumend. Mit 
dem CLR-Befehl werden sämtliche Variablenwerte ge- 
löscht. Dieser Befehl ıst an dieser Stelle notwendig, weil 
identische DIM-Anweisungen in einem Programm nie 
zweimal gegeben werden dürfen. Das Zurücksetzen aller 
Variıablenwerte dient als Vorsichtsmaßnahme für den 
Fall, daß eine Datei während eines Programmablaufs 
nach zweı verschiedenen Kriterien sortiert werden soll; 
hierbei würde ein zweites Mal die Zeile 2250 mit den 
DIM-Anweisungen erreicht und das Programm wegen 
einer Fehlermeldung abgebrochen. Die CLR-Anweisung 
ın Zeile 2440 schützt vor diesem Abbruch. 

Zum Abschluß des gesamten Programmabschnitts wird 
mit Zeile 2450 wieder zum Hauptmenü verzweigt. 


Lektion 9 


Selektionsroutinen 


Neben dem Sortieren einer Datei gıbt es noch dıe Mög- 
lichkeit, Datensätze zu selektieren, das heißt nach be- 
stimmten Kriterien zu durchsuchen. Wenn man zum Beı- 
spiel eine Adressendatei aufgebaut hat und überprüfen 
will, ob eine bestimmte Anschrift darın enthalten ist, so 
muß man hierfür nicht die gesamte Dateı lesen oder ın al- 
phabetischer Reihenfolge sortieren. Vielmehr genügt es, 
den Vornamen oder Nachnamen einzugeben und das 
Programm vergleichen zu lassen, ob dieser Selektionsbe- 
griff in einem der Datensätze enthalten ıst. 
Selektionsroutinen können auch benutzt werden, um zum 
Beispiel alle Datensätze zu separleren, die beim Eintrag 
»verheiratet« ein »J« enthalten. Da dıe vorliegende Perso- 
nendateı auch ın spielerischer Form angewendet werden 
soll, wäre es denkbar, alle Datensätze zu selektieren, de- 
ren Datenfeld »Lieblingsessen« den Eintrag »Kartoffelpuf- 
fer« aufweist und diese Leute zu einem großen Kartoftel- 
pufferessen einzuladen. 

Die Selektionsroutine ist nach ähnlichen Prinzipien aufge- 
baut wie die Sortierroutine, Jedoch werden hıer nıcht nur 
die einzelnen Datensatznäummern ın einer bestimmten 
Reihenfolge abgespeichert, sondern die selektierten Da- 
tensätze Insgesamt. Es wird somit eine eigene Relatıve 
Dateı (Selektionsdatei) eröffnet, ın der dıe Datensätze aus 
der Datendateı enthalten sınd, dıe dem Suchkriterium 
entsprechen. Diese Selektionsdatei läßt sıch hinterher 
wie jede andere Datendatei lesen, verändern oder alpha- 
betisch sortieren. 

Doch bevor die hierfür notwendigen Programmergänzun- 
gen eingegeben werden, sollte dıe Varniablenliste (siehe 
Seite 65) um die inzwischen neu hinzugekommenen Varla- 
blennamen erweitert werden, damit Doppelbelegung 
vermieden wird. 


pz$ Hilfsvariable zum Abspeichern der Postleitzahl als 
alphanumerischen Wert 

ki$ Hilfsvariable zum Abspeichern der Kinderzahl als 
alphanumerischen Wert 

sd$ Name der Sortierdatei (auch Name der Selektions- 
datei) 


rn Byte-Angabe für die RECORD#-Anweisung beim 
Lesen von Datensätzen beziehungsweise Datenfel- 
dern 

s(x) Feldvariable zum Sortieren von Datensatznummern 

s$(x) Feldvariable zum Sortieren von Datenfeldern 

X Zählvariable für FOR... NEXT-Anweisungen 

1 Zählvarlable für FOR...NEXT-Anweisungen 

] Zählvarıiable für FOR...NEXT-Anweisungen 

hv  Hilfsvariable 


Als neue BASIC-Wörter werden ın der Selektionsroutine 
die Anweisungen READ (engl. »lesen« oder »lies«), DATA 
(engl. »Daten« oder »Ängaben«) und RESTORE (engl. 
»wiederherstellen«) verwendet. Da diese Anweisungen 
nıcht ım Direktmodus, sondern nur auf Programmebene 
wirksam werden, sollten Sie noch vor dem Einladen 
der bisherigen Version des Datenverwaltungspro- 
gramms die folgenden Übungsbeispiele nachvollziehen. 
Sie verdeutlichen die Funktionsweise von READ, DATA 
und RESTORE, 

Im Prinzip läßt sich mit der DATA-Anweisung eine Se- 
quentielle Datei im Arbeitsspeicher des Computers ein- 
richten, die bei Bedarf eingelesen wird. Bei den Anga- 
ben, dıe der DATA-Anweiısung folgen, kann es sich um 
numerische oder alphanumerische Daten handeln. Ge- 
nau wie In einer Sequentiellen Dateı auf Diskette werden 
hıer dıe Daten chronologisch hintereinander geschrieben 
und durch Kommata getrennt. Diese Daten werden mit 
der READ-Anweisung gelesen. Die Anzahl der Daten 
muß mit der Anzahl der READ-Anweisungen exakt über- 
einstimmen. Da ım allgemeinen mehrere Daten in einer 
DATA-Anweisung angegeben werden, benutzt man zum 
Lesen eine FOR...NEXT-Anweisung, die die erforderli- 
che Anzahl der Lesevorgänge durchläuft. Wenn eine 
DATA-Anweisung zum Beispiel zehn Daten enthält, wird 
die READ-Anweisung in eine FOR...NEXT-Anweisung mit 
zehn Durchläufen eingebunden. Im andern Fall müßte 
man zehn einzelne READ-Anweisungen geben, was 
natürlich einen viel zu großen Programmieraufwand dar- 
stellt. Beispiel: 


Montag 
Dienstag 
Mittwoch 
Donnerstag 
Freitag 
Samstag 
Sonntag 


READY. 
va 


In dıesem Fall werden die sieben Wochentage eingele- 
sen und auf den Bildschirm gebracht. Die Zeichenketten 
der DATA-Anweiısung sınd dabei ın Anführungszeichen 
gefaßt. Hierauf könnte man theoretisch verzichten; die 
Zeichenketten würden auch ohne Anführungsstriche kor- 
rekt gelesen, Jedoch entsteht beim LIST-Befehl ein Buch- 
stabenwirrwar auf dem Bildschirm, wenn Zeichenketten 
ın DATA-Anweisungen ohne Anführungszeichen einge- 
geben werden. 

Ein weiterer Vorteil der READ-Anweisung besteht darın, 
mehrere Varlablen gleichzeitig lesen zu können. Beispiel 
(siehe auch Seite 114): 


In dıesem Fall werden also numerische und alpha- 
numerische Angaben ın der DATA-Anweisung gemischt. 
Dies ıst ohne Probleme ın beliebiger Weise möglich. 
Wichtig ıst Jedoch, daß beim gleichzeitigen Einlesen 
mehrerer Daten die Anzahl der FOR... NEXT-Durchläufe 
stimmt. Denn eine READ-Anweisung mit mehreren Varia- 
blen zählt als ein Lesevorgang. Somit bleibt in diesem 
Fall die Zahl von sieben Durchläufen erhalten, obwohl 


1 Montag 
e Dienstag 
3 Mittwoch 
nr: Donnerstag 
5 Freitag 

6 Samstag 
7 Sonntag 


die DATA-Anweisung vierzehn Angaben enthält. Mit je- 
dem Durchlauf werden zwei Daten eingelesen, nämlıch a 
und as. 

Nach dem Einlesen von Daten durch dıe READ-An- 
weisung gilt die DATA-Anweiısung als abgearbeitet, das 
heißt die Daten befinden sıch zwar noch ım Programm, 
werden jedoch nicht mehr berücksichtigt und können 
kein zweites Mal gelesen werden. Willman dennoch An- 
gaben aus DATA-Anweisungen mehrfach lesen, muß vor 
der READ-Anweisung die RESTORE-Anweisung gege- 
ben werden. Mit RESTORE werden bereits abgearbeite- 
te Daten wieder aktiviert und können durch eınen erneu- 
ten Lesevorgang In einem Programm verwendet werden. 
Die RESTORE-Anweisung kann beliebig oft ın einem Pro- 
grammablauf wiederholt werden. Ebenso können belıe- 
big viele Daten in DATA-Zeilen untergebracht werden. 
Zu beachten ıst dabei, daß die maximale Anzahl von Zeı- 
chen (160) einer BASIC-Zeile nıcht überschritten wird. 
Umfangreichere Datenmengen müssen somit ın mehrere 
DATA-Anweisungen aufgeteilt werden. 

Interessant ist noch die PRINT-Anweiısung der Zeile 30. 
Hier werden a und a$ durch ein Komma getrennt. Bisher 
waren PRINT-Anweisungen entweder ohne Zusatz oder 
mit einem Semikolon versehen. Ohne Zusatz erscheint 
eine weitere Bildschirmausgabe ın der nächsten Zeile, 
mit Semikolon schließt sie unmittelbar an dıe vorherige 
PRINT-Anweisung an. Das Komma bewirkt, daß dıe nach- 
folgende Bildschirmausgabe an der nächsten Tabulator- 
stelle erscheint. Voreingestellt sind vom Betriebssystem 


des Computers aus acht Zwischenräume von Tabulator- 
stelle zu Tabulatorstelle. Aus diesem Grund entstehen 
beim Starten des oben aufgeführten Listings acht Leer- 
stellen zwischen den Zahlen und den Wörtern. 

Diese voreingestellten Tabulatoren lassen sich nicht ohne 
weiteres verändern. Es gibt jedoch die Möglichkeit, mit 
Hilfe der TAB-Funktion bestimmte Bildschirmspalten 
einer Zeile direkt anzuwählen. Die TAB-Funktion ist nur in 
Verbindung mit einer PRINT-Anweisung wirksam und be- 
zieht sich dabei auf die möglichen Bildschirmspalten 0 bis 
39 (bei 40-Zeichendarstellung) oder O0 bis 79 (bei 80- 
Zeichendarstellung). Beispiel: 


print "Anfang"tab(20) "Ende" 


Anfang Ende 
READY. 
MM 
In dıesem Fall erscheint — wie bei jeder normalen 


PRIN'TTI-Anweisung — das Wort »Änfang« in der ersten 
Bildschirmspalte, das Wort »Ende« jedoch in der zwanzig- 
sten Spalte. Die TAB-Funktion bietet somit eine verein- 
fachte Anwendung der CHAR-Anweisung. 

Mit dıesen Vorübungen können nun die erforderlichen 
Programmzeilen für die Selektionsroutine eingegeben 
werden. Laden Sıe hierzu dıe bisherige Programmver- 
sıon In den Arbeitsspeicher des Computers und geben 
sıe dıe folgenden Zeilen ein, oder laden Sıe, wenn Sie 
dıe Begleitdiskette benutzen, das komplette erweiterte 
Programm mit DLOAD "LEKTION 9' [RETURN] ın den 
Speicher. 


2500 
eS10 
5 
e530 
2540 
ESS) 
A 
es7’0 
sd 

PSBu 
ee 
2600 


e561lD 


eBeO 


2.530 


oder 


rem daten selektieren 
scnclr 

ns=1:hv*=Oo 

print bB 

brime 
Deine 
gosub 
input 


Daten selektieren” 
b&$:print 
2900 
"Name der Selektionsdatei: ”; 


gosub 3000 

For “eig en: 208 

read a,b 

char 1,3,5,0Hhr50x),12:: 

next x:restore 

char 1,1,22,"”"Selektionsfeld wählen 
* für Ende” 


Datensatznummer der Sortierdatei 
Hilfsvariable = OÖ 


Eingabe Dateiname zum Selektieren 
Eingabe Name der Selektionsdatei 


UP: Bildschirmmaske 


Schleife von x=-193 bis x"-209 


Auswahlpunkte A bis QB in Bildschirmmaske 


Eingabe Selektionsbegriff 


Datensatznummer der Datendatei lesen 
Hilfsvariable z=Anzahl Datensätze 


Schleife von x=1 bis x=fAnzahl Datensätze 


Datenfeld lesen 


Datenfeld = Selektionsbegriff 


Datensatz lesen 


Datensatz in 
Selektionsdatei 
speichern 


Datensatzzähler 
um 1 erhöhen 


Hilfsvariable = 


Hilfsvariable = 1 — 


Anzeige: Anzahl selek- Anzeige: Kein Datensatz 
tierter Datensätze entspricht dem Selek- 
tionsbegriff 


Zurück zum Hauptmenü 


Struktogramm der Selektionsroutine 


I get! 


ei ii Be "a Ei H: 


a = 3 


key ag. 
Be 


a$=" “ 


a$= ”g” 


HE a$f=-”’e’” 


a$= ur » 


las-"g® 


a5= ir ” 


age”j’ 


as> ’ 1 >’ 


ask 


a3g="]” 


if age 


ag=”"n ” 


then g 
then 


then 


then 


then 


then 


then 


then 


then 


’ then 


then 


then 


then 


then 


then 


chef 


Eobe. 20 


enel 


rn=22 
rn=-43 
rn=bt 
rn=53 
rn=-90 


rn=104 


rn=113 


ae 


rn=11?7 
rn=126 
rn=147 


rn=179 
rn=187 


a$="p” rn=198 

£ a$*=-"’o” then rn=206 | 

gosub 33090: Eehar ERRR »». input "Pi 
;‚sb$ 

co, uB: :input#3, an 


then 


2690 
ngabe Selektionsbegriff: 


2700 dopen#3, 
:delose#3:z#dn 

2710 dopen#1, (dn$) 

27020 Eon x#l ko zZirecorö#l, iX), tm iind 
t#1,x8 | 

2730 if x$=sb$ then dn=x:gosub 4520: gosu 
b 6000: dopen#1,(dn$) 
EMO: MERKE X: 

0750 dclose#l 

2760 dopen#3, ”Sdn”+(sd$) 
‚ns:dclose#3 

2770 gosub 3300 

a if hv=1 then char 1, l,ee, 

Datensätze wurden äelsktisrh 

Sep if hv<>1 then char 1,1,022,”"Kein Dat 

ensatz entspricht den Kriterien” 

eB00 sleep 5 

2810 gotna 20: 


"an +lons), 


„BO U, W:Drint®3 


») 3» 


: print n 


Die Zeilen 2500 bis 2580 bieten keine Besonderheiten 
oder neue, programmtechnische Aspekte. Es wird ledig- 
lich nach dem Dateinamen und dem Namen der Selek- 
tionsdatei gefragt sowie die Bildschirmmaske aufgebaut. 
Die Zeilen 2590 bıs 2620 beinhalten jedoch die erste 
praktische Anwendung der READ-, DATA- und RE- 
STORE-Anweisung. Dies hat folgenden Grund: Nach dem 
Aufbau der Bildschirmmaske soll hinter Jedem der sıeb- 
zehn Datenfelder in alphabetischer Reihenfolge je einer 
der siebzehn Buchstaben von »AÄ« bis »Q« erscheinen. 
Würde man hierzu die CHAR-Anweisung einsetzen, 
müßten siebzehn Zeilen programmiert werden. Mit der 
hier gezeigten Lösung benötigt man lediglich vier Zeilen: 


Daten selektieren 


Eingabe Dateiname: ” 
Name der Selektionsdatei: ” 


Die Großbuchstaben »A« bis »Q« nehmen beı gedrückter 
ASCIVDIN-Taste ım Groß-/Kleinschriftmodus beim Com- 
modore die ASCII-Codes 193 bis 209 ein. Wie Sıe bereits 
aus Lektion 5 wissen, können alle Zeichen aus dem Zei- 
chenvorrat des Computers auch mit der CHR$-Funktion 
auf den Bildschirm gebracht werden. So erscheint zum 
Beispiel bei der Anweisung print chr$(193) der Buchstabe 
»A« auf dem Bildschirm. Diese Möglichkeit wird mit der 
FOR...NEXT- und READ-Anweisung genutzt. Die FOR- 
..NEXT-Anweisung wiederholt von x=193 bis x=209 
sjebzehn Durchläufe. Die READ-Anweisung liest mit den 
Variablen a und b die Bildschirmpositionen, die für die 
CHAR-Anweisung aus Zeile 2610 notwendig sind. Das 
Zeichen, das die CHAR-Anweisung an den betreffenden 
Positionen der Bildschirmmaske ausgeben soll, wird mit 
der CHR$-Funktion definiert. Beim ersten Durchlauf ist x 
gleich 193, somit erscheint mit chr$(x) ein »A«; beim zwei- 
ten Durchlauf ıst x gleich 194, dadurch erscheint ein »B«, 
und so weiter bis 209 (entspricht »Q«) erreicht ist. 

Die Daten für die Bildschirmpositionen (Variablen a und 
b der CHAR-Anweisung) können theoretisch an jeder be- 
lıebigen Stelle mit der DATA-Anweisung untergebracht 
werden. Sinnvoll und allgemein üblich ist jedoch, DATA- 
Anweisungen an das Programmende zu verlegen. Da ın 
diesem Fall wegen einiger noch fehlender Programm- 
funktionen das Ende, das heißt die letzte Programmzeile 
noch nicht festliegt, wird für die DATA-Anweisung eine 
sehr hohe Programmzeilennummer gewählt, die mit Sı- 


cherheit durch andere Programmabschnitte nıcht bean- 
sprucht wird. 


Hier ın Zeile 10.000 sınd also die Bildschirmpositionen ge- 
speichert, dıe den einzelnen Datenfeldern entsprechen 
(10,3 für Vorname, 10,4 für Nachname und so weiter). 
Über die hohe Nummer der Programmzeile muß man 
sich keine Gedanken machen. Der Computer verkraftet 
Zeilennummern bis 65.535. Die Ablaufgeschwindigkeit ei- 
nes Programms wird durch hohe Zeilennummern ın keı- 
ner Weise beeinträchtigt. Es ıst lediglich sınnvoll, sich 
beı der Ausarbeitung eines BASIC-Programms viel Platz 
für die einzelnen Programmabschnitte und Ergänzungen 
zu lassen. Nach Abschluß der Programmierung — wenn 
also ein Programm komplett ıst — kann man mit Hilfe des 
RENUMBER-Befehls (vergleiche Lektion 1) alle Zeilen ın 
Zehnerschritten umnumerieren und damit eine geordnete 
Struktur schaffen. So wird auch mit diesem Programm am 
Ende verfahren werden. 

Die Zeile 2630 fragt nach dem Selektionsfeld, für das ein 
Suchkriterium eingegeben werden soll. Will man eine 
Dateı nach einem bestimmten Vornamen durchsuchen 
lassen, drückt man hier die Taste [A]. Das Programm 
weist dann als Start-Byte der RECORD #-Anweisung zum 
Lesen des Datenfeldes der Variablen rn den Wert | zu 
(siehe Zeile 2652). Wünscht man hingegen für das Daten- 
feld »Lieblingsessen« ein Suchkriterium zu definieren, 
drückt man entsprechend der Anzeige in der Bildschirm- 
maske die Taste [K]. Dadurch wird rn der Wert 126 zuge- 
wıesen (Zeile 2672). Zeile 2650 ıst als Bedienungskomfort 
eingefügt: Hat man lediglich aus Versehen ım Haupt- 
menü den Auswahlpunkt 6 gewählt, kann man hier durch 
Drücken der Taste [X] wieder zum Hauptmenü zurück- 
kehren. 

Mit Zeile 2690 wird nach dem Selektionsbegriff gefragt; 
wenn also als Selektionsfeld [K] angegeben wurde (Lieb- 
lingsessen), kann hier eingegeben werden, nach wel- 
chem Lieblingsessen die Dateı durchsucht werden soll. 
Man kann zum Beispiel »Kartoffelpuffer« eingeben, dann 
liest das Programm sämtliche entsprechenden Datenfel- 
der und sıchert alle Datensätze, die als Eintrag »Kartoffel- 
puffer« enthalten, in die Selektionsdatei, deren Dateina- 
men am Änfang bereits eingegeben wurde. 

Um einen korrekten Ablauf des Selektionsvorgangs zu 
gewährleisten, muß die höchste Datensatznummer der 


selektierten Datei eingelesen werden, die bei der Daten- 
eingabe unter dem Dateinamen »dn« plus dem Namen 
der Datendatei (zum Beispiel »dAnadressen« abgespei- 
chert wurde (vergleiche Lektion 7). Mit Zeile 2700 wird 
diese Zahl nun gelesen und zunächst der Variablen dn 
und dann der Hilfsvariablen z zugewiesen. 

Ab Zeile 2710 erfolgt dann der Lesevorgang mit Hilfe 
einer FOR...NEXT-Anweisung von x=] bis x= Anzahl der 
Datensätze. Die eingelesene Zeichenkette wird der Hilfs- 
variablen x$ zugewiesen. Zeile 2730 vergleicht nun, ob 
die eingelesene Zeichenkette mit dem Selektionsbegriff 
übereinstimmt: if x$=sb$ then... (in deutsch »Wenn der 
Eintrag des Datenfeldes gleich dem Selektionsbegriff ist, 
dann...«). Trifft die Bedingung nicht zu, wird der Suchvor- 
gang mit dem nächsten Durchlauf der FOR...NEXT-An- 
weısung fortgesetzt. Im positiven Fall verzweigt das Pro- 
gramm Jedoch zunächst zur Zeile 4520, um den gesamten 
Datensatz zu lesen, in dem das gesuchte Wort vorkommt 
und anschließend zum Unterprogramm ab Zeile 6000, um 
den gelesenen Datensatz in die Selektionsdatei abzuspei- 
chern. 

Die Programmzeilen 4500 bis 4700 dienen eigentlich zum 
Ändern eingegebener Daten. Da hierbei jedoch alle Da- 
tenfelder eines Datensatzes gelesen und auf dem Bild- 
schirm ausgegeben werden, kann man sich während des 
Selektionsablaufs diese Zeilen natürlich zunutze machen. 
Um zu verhindern, daß bei der Verzweigung zur Zeile 
4520 das Programm aufgrund der Anweisungen in Zeile 
4700 ım Unterprogramm 3250 fortgesetzt wird, muß für 
diesen speziellen Fall eine Bedingung geschaffen wer- 
den, mit der — wenn sie zutrifft — das Programm wieder 
zur Selektionsroutine zurückkehrt. Hierzu muß lediglich 
ın Zeile 4695 eine IF...THEN-Anweisung gegeben wer- 
den. 


4635 if a=11 then return 


Ins Deutsche übersetzt bedeutet sie »Wenn die Variable 
a den Wert 11 beinhaltet, dann kehre um zur Selektions- 
routine«. Mit dieser Bedingung verbindet sich ein gewis- 
ser Programmiıertrick, denn der Wert 1] für die Variable 
a entsteht nur dann, wenn die Selektionsroutine aufgeru- 
fen wird. Der Grund: In den Zeilen 2590 bis 2620 wurden 
bei der READ-Anweisung mit Hilfe der Variablen a und b 
dıe Bildschirmpositionen für die CHAR-Anweisung gele- 
sen. Der letzte gelesene Wert für a ist 11, für b ist es 17. 
Bis zu einer neuen Zuweisung (zum Beispiel bei einer 
GETKEY-Anweisung) bleiben die Werte der Variablen 
erhalten. Bei keinem anderen Programmablauf erhält die 


Variable a den Wert 11; dies ıst lediglich bei der Selek- 
tionsroutine der Fall. Wenn also der Programmabschnitt 
4500 bis 4700 benutzt wird, um eingegebene Daten zu 
ändern, trıfft die Bedingung der Zeile 4695 nicht zu, und 
das Programm wird wie gewünscht mit Zeile 4700 fortge- 
setzt. Die Bedingung der Zeile 4695 könnte übrigens auch 
if b=1Tthen... lauten, um den Rücksprung zur Selektions- 
routine zu gewährleisten, weil auch diese Bedingung nur 
ın diesem Fall zutrifft. 

Das Abspeichern selektierter Datensätze vollzieht sich ım 
Unterprogramm ab Zeile 6000. Hier wırd zunächst der 
Datenkanal mit der Angabe der Datensatzlänge eröffnet 
und eine FOR...NEXT-Anweisung von y=1 bis y=2 gege- 
ben. Dies ıst wiederum — wie beim Sichern einfacher Da- 
ten — als Vorsichtsmaßnahme zu verstehen, weil die Da- 
tensicherung der Commodore-Diskettenstation technisch 
nicht ausgereift ıst. 


BO05 


rem selektierte daten speichern. 

üopen#te,(sd$3,1234:for y*1 to 2 

6010 record#2, (ns) ,1:print#2,vn$ 

BO2O record#o, (ns), 22:print#2,nnS 

 record#2, (ns) ‚43: print#2,st$. 
record#2, (ns), E64: print#2,pzS 

ı record#2, (ns) ,B93:print#2,wo8. 

record#2, (ns),90:print#2,tn$ 


0 record#2, (ns), 10%: 
record#2, (ns), 113: 
 record#2, (ns), 115: 
record#2, (ns), 117: 
 record#2, (ns), 1leB6: 


record#2, (ns), 147 


print#2,gb$ 
print#2,vh$ 


print#2,ki$ 


print#2, if 


print#2,le$ 
:print#o,1s$ 
 record#2, (ns), 168: 
record#o2, (ns), 179: 
 record#P2, (ns), 187: 
record#2,(ns),198B: 


print#2,ea8 
print#2,eb$ 
print#2 ,ec$. 
print#2,ed$ 


6170 record#2, (ns) , 206: print#2, ee$ 
b1BO next y:hv=1:ns=ns+1:dclose#2 
53180 return | 


In Zeile 6180 wird der Hilfsvariablen hv der Wert 1 
zugewlesen und die Datensatznäummer der Selektions- 
datei (Variable ns) um 1 erhöht. Danach erfolgt der 
Rücksprung zur Selektionsroutine. Die mehrfachen 
DOPEN#— und DCLOSE#-Anweisungen werden not- 
wendig, weıl das Diskettenbetriebssystem nur maximal 
eine Relative und eine Sequentielle Datei oder drei Se- 
quentielle Dateien gleichzeitig verwalten kann. Da so- 
wohl dıe Datendatei, aus der die Datenfelder gelesen 
werden, als auch die Selektionsdatei Relative Dateien 
sınd, muß vor Operation mit der einen oder anderen je- 


weils der betreffende Datenkanal geöffnet beziehungs- 
weise geschlossen werden. 

Nachdem alle Datenfelder der selektierten Datei gelesen 
wurden, wird mit Zeile 2760 wie für jede Relative Dateı 
auch für die Selektionsdatei die zuletzt erreichte Daten- 
satznummer In einer eigenen Sequentiellen Dateı abge- 
speichert. Dadurch kann eine Selektionsdatei wie Jede 
normale Datendatei gelesen, geändert oder ausgedruckt 
werden. 

Zum Abschluß dieses gesamten Programmabschnitts 
wird noch angezeigt, ob und wieviele Datensätze selek- 
tiert wurden. Dazu dient die Untersuchung der Hilfsvarıa- 
blen hv: Zu Beginn der Selektionsroutine wird hv der 
Wert 0 zugewiesen (Zeile 2520). Sobald jedoch eın Daten- 
feld dem eingegebenen Selektionskriterium entspricht, 
erfolgt mit dem Unterprogramm ab Zeile 6000 die Sıche- 
rung des dazugehörenden Datensatzes. Dabeı wird der 
Hilfsvarlable hv der Wert | zugewiesen. Mit Zeile 2780 
wird nun festgestellt, ob hv gleich | ıst. In diesem Fall 
wird die Anzahl der selektierten Datensätze (Variable ns) 
und der Text »Datensätze wurden selektiert« ausgege- 
ben. Im andern Fall, wenn hv ungleich | ıst, also kein Da- 
tensatz ın dıe Selektionsdatei gespeichert wurde, er- 
scheint der Text »Kein Datensatz entspricht den Krıite- 
rien«. Hiermit weiß der Anwender stets, ob das einge- 
gebene Suchwort ın einem der Datensätze überhaupt 
vorkommt. 

Als neues BASIC-Wort finden Sie in Zeile 2800 den Befehl 
SLEEP (engl. »schlafend. Mit ihm kann ein Programm an 
jeder beliebigen Stelle während seines ÄAblaufs angehal- 
ten werden. Der Wert, der SLEEP folgt, gıbt dıe Anzahl 
der Sekunden an, für die die Programmausführung ge- 
stoppt werden soll (in diesem Fall also fünf Sekunden). 
Der Grund für diesen Befehl: Der Anwender soll die 
Möglichkeit haben, den Text der Zeilen 2780 oder 2790 
auch tatsächlich auf dem Bildschirm zu lesen. Durch die 
sofortige Verzweigung zum Hauptmenü (Zeile 2810) 
würde der Text nur ein Bruchteil einer Sekunde erscher- 
nen und sofort durch die Bildschirmausgabe des Haupt- 
menüs gelöscht. Mit sleep5 hält das Programm hingegen 
fünf Sekunden lang an, so daß der Text in Ruhe gelesen 
werden kann. 


Lektion 10 


Leseroutinen 


Mit der Programmierung der Sortier- und Selektionsrouti- 
nen ın den Lektionen 8 und 9 ist es nun möglıch, den Aus- 
wahlpunkt 2 des Hauptmenüs »Daten lesen« zu ergänzen 
und das Programm damit — bis auf die Druckerroutine — 
zu vervollständigen. 

Das Untermenü zum Daten lesen bietet vier verschie- 
dene Möglichkeiten: 


‘ Daten lesen 


1 Datei chronologisch lesen 
es enparar definierte Daten 
esen 


JS. Sortierte Datei lesen 
4. Selektierte Datei lesen 


5: Zurück zum Hauptmenü 


Ihre Eingabe: 


Mit Punkt 1, »Daten chronologisch lesen«, werden die Da- 
tensätze einer Datei ın der Reihenfolge ıhrer Eingabe ge- 
lesen und auf dem Bildschirm ausgegeben. Punkt 2, 
»Temporär definierte Daten lesen« bedeutet, daß eın be- 
stimmtes Datenfeld innerhalb jedes Datensatzes nach 
einem bestimmten Begriff durchsucht wird. Bei Über- 
einstimmung erscheint auf dem Bildschirm der gesuchte 
Datensatz. Das bedeutet, man muß nicht unbedingt eine 
Selektionsdatei definieren, nur um festzustellen, ob zum 
Beispiel eine bestimmte Adresse ın der Dateı enthalten 
ist. Einzelne Selektionsbegriffe lassen sıch temporär ein- 


Eingabe 


UP: Eingabe 


Dateiname 


UP: Bildschirm- 
maske 


Datensatz- 
nummer in 
B.maske 


Datenkanal öffnen 


Datenkanal öffnen UP: Selektion 


Schleife von x=1 
bis x=dn 


Schleife von x=1l 
bis x=dn 


Fehlerbestimmung 


UP: Datensatz 
lesen 


UP: Datensatz 
lesen 


Datenfeld lesen 


IA 


x$5=-sb$ 
Eingabe Eingabe 


Weiter oder Ende Weiter oder Ende 


Struktogramm der Leseroutine 


Datensatznummer 
lesen 


Zurück zum 
Hauptmenü 


geben; dıe gelesenen Datensätze werden Jedoch nicht ın 
einer eigenen Datei erfaßt, sondern sind nach dem Er- 
scheinen auf dem Bildschirm für eine weitere Bearbeı- 
tung nıcht verfügbar. 

Der Punkt 3, »Sortierte Datei lesen«, erlaubt eine zuvor 
geordnete Dateı Datensatz für Datensatz auf dem Bild- 
schirm auszugeben. Das Lesen einer selektierten Datei 
(Auswahlpunkt 4) ıst praktisch identisch mit dem Lesen 
einer einfachen Datendatei, weil beide Dateitypen als 
Relative Dateien auf der Diskette abgespeichert sind. 
Aus diesem Grund sind die notwendigen Programm- 
ergänzungen für Punkt 1 und 4 zusammengefaßt. 

Die Pfeile in diesem Struktogramm bedeuten, daß die 
Strukturblöcke für alle Auswahlpunkte identisch sind. 
Aufgrund der verschiedenen Dateneinlese- und Daten- 
übertragungsroutinen der vorhergehenden Lektionen ist 
die Programmergänzung zum Lesen von Daten auf dem 
Bildschirm nicht sehr umfangreich. Die meisten der auf- 
geführten Unterprogramme existieren bereits, lediglich 
eine FOR...NEXT-Anweisung zum fortlaufenden Lesen 
der Datensätze und die Eingabe »Weiter oder Ende« wer- 
den neu programmıert. Mit dıeser Eingabe Ist es mög- 
lich, einen Datenlesevorgang Jederzeit zu verlassen und 
zum Hauptmenü zurückzukehren. 


850 gosub 230998 | | 
670 if a<>3 then asenHE, "dn”+Cans) ‚do, u 
B: input#2 ,‚dn:delose#2:z=dn. Hi 

BEBO gosub 3000 

690 dopen#i, (dn$),d0O,uB 

700 if a=2 then begin. 

710 hv*-l:gosub 8590 i 
20 For x= n. to zZ: record#1, z2R oem: : input 
#1,%28 ..: a 

730 ie x5= =sb$ then uaps 2: Eu 4520 

740 gasub 3300: gosubh 900:next x 
750 bend 

260 iE a>1 oc a4 then begin _..... 
770 mei :for v1 = za: ER a 
780 gosub 3300: gosub 9300 | ı 


7/90 next x | 

BoD Bed  ....... 

810 if a=3 then begin | 

B2O hv=-i1:char 1,1,22,"":input "Eingabe 


der Sortierdatei”; sd$: Sehen, (sdS) u u 
8: ll 
B3O — 350 

840 input#2 ,dn:gosub 4520: gosub 3300: gos 
ub 900 

850 goto B4O 

860 bend 

870: goto S50. HEBE EEHHHRHR HREHHRREHRE Hi HEHHEN EEE: HERERBERHRERHRERHSRHRE 
900 rem rg Herter oder ende 


910 char 1,1,22, "Weiter mit RETURN oder 
Ende mit *” 
rein 
930 if asg<ı>”%*” ren return else goto 20 
350 gosub 3300. u | 
960 char 1,1 ‚er; ‚Der letzte Datensatz WUI 
rde gelesen” = ....... 

970 dclose#l: ag 

980 slsep 5 | 

990 goto 20 


Hinweis: Die komplett ergänzte Programmversion findet 
sıch auf der Begleitdiskette zu diesem Buch unter dem 
Dateinamen »LEKTION 10«. 


Nach der GETKEY-Anweisung aus Zeile 650 verzweigt 
das Programm zunächst zum Unterprogramm 2900, um 
den Dateinamen zu erfragen, der gelesen werden soll. 
Für einen korrekten Lesevorgang muß die gespeicherte 
Datensatznummer eingelesen werden (Zeile 670), weil sie 
die Anzahl der erfaßten Datensätze repräsentiert und da- 
mit dıe Anzahl der FOR...NEXT-Durchläufe bestimmt. 
Wenn versucht wird, einen Datensatz mit einer höheren 
Datensatznummer zu lesen, erfolgt eine Fehlermeldung. 
Da jedoch zum Lesen einer sortierten Datei nicht die An- 
zahl der Datensätze, sondern die Reihenfolge wichtig ist, 
wird durch dıe Bedingung if aov3 then... verhindert, daß 
auch beı der Wahl des Punktes 3 die höchste Datensatz- 
nummer der betreffenden Datei eingelesen wird. Einge- 
deutscht würde Zeile 670 somit lauten »Wenn a ungleich 3 
ıst, dann lies dıe höchste Datensatznummer des einge- 
gebenen Dateinamens« Genau wie bei der Selektions- 
routine wird auch hier der Hilfsvariablen z der Wert von 
An (höchste Datensatznummer) zugewiesen, weil dn für 
den Lesevorgang selbst im Unterprogramm ab Zeile 4520 
eingesetzt wird. 

Mit Zeile 680 erfolgt der Aufbau der Bildschirmmaske, 
und Zeile 690 öffnet den Datenkanal zum Lesen der Da- 
181, 

Zwei neue BASIC-Wörter enthalten die Zeilen 700 und 
1/50. Es handelt sich um die Anweisungen BECGIN (engl. 
»Beginn«, »beginne«) und BEND (engl. »Bogen«, »den Bo- 
gen schlagen). Sıe werden als erweiterte Form der 
IF... THEN-Anweisung eingesetzt und haben folgende 
Funktion: Wenn eine IF..THEN-Anweisung gegeben 
wird, erfolgt die Ausführung aller dem THEN folgenden 
Befehle, Anweisungen oder Funktionen, sobald die Be- 
dingung zutrifft. Im anderen Fall wird das Programm mit 
der folgenden Zeile fortgesetzt. Hierdurch ist die Zahl 


der möglichen Befehle, Anweisungen und Funktionen, 
die bei zutreffender Bedingung ausgeführt werden 
können, begrenzt, weil eine BASIC-Programmzeille nur 
160 Zeichen verarbeiten kann. Mit Hilfe der BEGIN- 
Anweisung ist es nun möglich, beliebig viele Befehle, An- 
weisungen oder Funktionen in mehrere Programmzeilen 
aufzuspalten, dıe nur dann zur Ausführung kommen, 
wenn die Bedingung von IF zutrifft. Sobald BEGIN pro- 
grammiert wird und eine IF-Bedingung nicht zutrifft, setzt 
der Computer das Programm nicht mit der folgenden 
Zeile fort, sondern erst mit der Zeile, dıe der BEND- 
Anweisung folgt. Von dieser Möglichkeit wird beı der 
Leseroutine Gebrauch gemacht, weıl nach der Auswahl 
der einzelnen Punkte des Untermenüs mehrere Anweı- 
sungen ausgeführt werden sollen, die sıch nıcht alle ın eı- 
ne IF... THEN-Anweisung fassen lassen. 

Im ersten Fall wırd »der Bogen« von Zeile 700 bis 750 ge- 
schlagen. Zeile 700 bestimmt »Wenn der Auswahlpunkt 
der Eingabe 2 entspricht, dann beginne mit der 
Ausführung des Programmabschnitts bis Zeile 750«. In- 
nerhalb dieses Abschnitts wird zunächst der bereits häu- 
figer benutzten Hilfsvariablen hv der Wert -| zugewiesen. 
(An anderer Stelle des Programms wırd dann die Bedin- 
gung If hv =-|l then... überprüft, um bei Zutreffen dieser 
Bedingung eine bestimmte Anweisung ausführen zu las- 
sen.) Danach erfolgt die Verzweigung zur Zeile 2590, das 
heißt zur Selektionsroutine. Denn sämtliche Anweisun- 
gen, die zum ÄAbspeichern selektierter Daten notwendig 
sind, können natürlıch auch für temporär selektierte Da- 
ten genutzt werden. Dieser Abschnitt muß lediglich um 
eine Zeile ergänzt werden, um den Rücksprung zur Lese- 
routine zu ermöglichen. Dazu wird Zeile 2695 eingefügt: 


e695 if hv=--1 then return 


Mit dieser Anweisung wird überprüft, ob die Hilfsva- 
rıable hv den Wert -] aufweist. In diesem Fall soll die 
RETURN-Anweisung ausgeführt werden, also der Rück- 
sprung zur Leseroutine erfolgen. 

Dort wird nun — genau wie In der Selektionsroutine — 
verglichen, ob das gelesene Datenfeld mit dem Suchkri- 
terıum übereinstimmt (Zeile 730). Im positiven Fall wird 
der gesamte Datensatz gelesen (Programmabschnitt 4520 
bıs 4700), jedoch nıcht ın einer Selektionsdatei gespel- 
chert, sondern lediglich auf den Bildschirm gebracht. Da 
der Programmabschnitt 4520 bis 4700 auch zum Ändern 
gespeicherter Daten eingesetzt wird, muß auch hier eine 
Bedingung für den Rücksprung zur Leseroutine eingefügt 
werden: 


46B5 if hv=-1 then return 


Genau wıe In der Selektionsroutine wird hıer die Hilfsva- 
rıable hv auf den Wert -] überprüft. Mit solch einfachen 
Anweisungen kann man sich ersparen, komplette Pro- 
grammabschnitte mehrfach eingeben zu müssen. 

Durch die Verzweigung zur Zeile 900 wird erfragt, ob der 
Lesevorgang fortgesetzt werden soll. Dort kann man eın- 
fach [RETURN] drücken, um zur Leseroutine zurückzu- 
kehren oder [*], um den Rücksprung zum Hauptmenü 
auszulösen. Wenn alle Datensätze gelesen sınd, das 
heißt, wenn die Varlable x der FOR...NEXT-Anweisung 
die höchste Datensatznummer erreicht hat, wird mit der 
BEND-Anweisung in Zeile 750 dieser Programmabschnitt 
verlassen. 

Wurde ım Auswahlmenü Punkt l oder 4 gewählt, so über- 
springt das Programm den Abschnitt 700 bıs 750 und 
führt die Anweisung der Zeilen 760 bis 800 aus. Auch hier 
wird der Hilfsvarlable hv der Wert -] zugewiesen, jedoch 
erfolgt keine Verzweigung zur Selektionsroutine, weil ın 
diesem Abschnitt alle Datensätze einer Datei ın der Reı- 
henfolge ihrer Eingabe gelesen werden. Dazu genügt 
eine einfache FOR... NEXT-Anweisung, deren Durchläufe 
sıch nach der höchsten Datensatznummer der zu lesen- 
den Dateı richten. Auch hıer wird nach jedem Erscheiı- 
nen eines Datensatzes zum Unterprogramm ab Zeile 900 
verzweigt, wo man entweder den nächsten Datensatz auf- 
rufen oder zum Hauptmenü zurückkehren kann. Die 
BEND-Anweisung in Zeile 800 gibt dem Computer an, 
daß an dieser Stelle der Abschnitt zum einfachen Lesen 
von Dateien beendet ıst und das Programm mit der fol- 
genden Zeile fortgesetzt werden kann. 

Diese folgende Zeile (810) enthält ebenfals eine BEGIN- 
Anweisung, deren Anweisungen bis zur BEND-Anweı- 
sung In Zeile 860 nur dann ausgeführt werden, wenn im 
Auswahlmenü eine 3 eingegeben wurde (sortierte Datei 
lesen). Wie ın Lektion 6 erläutert, werden beim Sortieren 
einer Dateı nicht die gespeicherten Datensätze manipu- 
lıert, sondern lediglich die Datensatznummern in geord- 
neter Form in einer eigenen Sequentiellen Dateı abge- 
. speichert. Beim Lesen von sortierten Dateien muß also 
diese geordnete Reihenfolge der Datensatznummern ın 
die RECORD+#-Anweisungen eingebracht werden. Dazu 
werden dıe Nummern ähnlich wie beı einer REAÄD- 
Anweisung aus DATA-eilen von Diskette gelesen und 
der Variable dn zugewiesen. Mit diesem Wert können 
die RECORD#-Anweisungen der Zeilen 4520 bis 4680 
ausgeführt werden. 


Da jedoch der Datenvorrat der Sequentiellen Datei ge- 
nau wie bei einer DATA-Anweisung irgendwann er- 
schöpft ıst, würde beim Versuch, eine nicht vorhandene 
Datensatznummer oder einen nicht vorhandenen Daten- 
satz zu lesen eine Fehlermeldung ausgegeben (RECORD 
NOT PRESENT, engl. »Datensatz nicht vorhandend. Um 
zu verhindern, daß das Programm aufgrund dieser Feh- 
lermeldung abgebrochen wird, Ist eine weitere Änwel- 
sung notwendig. Es handelt sich um TRAP (engl. »Falle«). 
Die TRAP-Anweisung bietet eine ausgesprochen nützli- 
che Anwendungsmöglichkeit. Mit ıhr kann bestimmt wer- 
den, in welcher Programmzeile ein Programm beim Auf- 
treten eines Fehlers fortgesetzt werden soll. Dazu muß 
der TRAP-Anweisung lediglich die betreffende Zeilen- 
nummer folgen. Im vorliegenden Fall wird also in Zeile 
830 angegeben, daß das Programm beim Auftreten eines 
Fehlers zur Zeile 950 verzweigen soll, um die dort vorlie- 
gende CHAR-Anweisung »Der letzte Datensatz wurde ge- 
lesen« auszuführen. Das bedeutet: Der Computer liest dıe 
sortierte Reihenfolge der Datensatznummern und ver- 
zweigt, sobald das Ende der Sequentiellen Datei erreicht 
ist und normalerweise die Fehlermeldung RECORD NOT 
PRESENT auftreten würde, zur Zeile 950 und teilt dem 
Anwender mit, daß alle ın Frage kommenden Datensätze 
gelesen wurden. Dieser Text wird mit Hilfe des SLEEP- 
Befehls fünf Sekunden lang auf dem Bildschirm gehalten. 
Danach erfolgt der Rücksprung zum Hauptmenü. 


TRAP-Anweisungen lassen sich beliebig oft in einem 
BASIC-Programm eingeben. Dabei bezieht sich der Com- 
puter beim Auftreten eines Fehlers ımmer auf die Pro- 
grammzeilennummer, die der zuletzt gegebenen TRAP- 
Anweisung folgte. Das bedeutet: Gibt man in Zeile 100 
dıe Anweisung TRAP 1000 und in Zeile 110 die Anwei- 
sung TRAP 1500, verzweigt der Computer beim Auftreten 
eines Fehlers zur Zeile 1500 und nicht zur Zeile 1000. 

Es ıst jedoch möglich, diesen gesamten Komplex der 
Fehlerunterbrechungen mit Hilfe der TRAP-Anweisung 


und einiger Hilfsfunktionen zu differenzieren. Hierzu einıI- 
ge Informationen vorab: Bislang wurde im Zusammen- 
hang mit dem BASIC-Vokabular von Befehlen, Anweisun- 
gen und Funktionen gesprochen. Daneben hatten die 
verschiedenen Typen von Varlablen (numerische, alpha- 
numerische und Feldvarlablen) große Bedeutung. Prak- 
tisch jeder Computer arbeitet darüber hinaus von seiten 
des Betriebssystems mit sogenannten Systemvarlablen. 
Diese Systemvariablen haben fest vorgegebene Varia- 
blennamen, die nicht für systemfremde Anwendungen 
eingesetzt werden dürfen. Zum Beispiel sind DS und DS$ 
Systemvariablen. DS nımmt beim Auftreten eines Disket- 
tenoperationsfehlers einen bestimmten Zahlenwert, DS$ 
die dazugehörende Fehlermeldung an. (Jedem möglı- 
chen Fehler ist ein bestimmter Code und Text zugewie- 
sen; zum Beispiel würde beim Auftreten des oben ge- 
nannten Datenlesefehlers die Systemvarlable DS den 
Wert 50 annehmen und DS$ den Text RECORD NOT 
PRESENT.) Mit Hilfe einfacher PRINT-Anweisungen kann 
man den Code und Text aller Systemvariablen auf dem 
Bildschirm ausgeben. 

Wesentlich ınteressanter ist Jedoch, Systemvarlablen ın 
Verbindung mit TRAP- und IF... THEN-Anweisungen ein- 
zusetzen. Damit lassen sich Fehler diagnostizieren und 
gezielte Programmverzweigungen programmieren (zum 
Beispiel IF DS=50 THEN...). Auf diese Weise ist es mög- 
lıch, einen leistungsfähigen Fehlerblock in ein Programm 
einzufügen, in dem die Fehlercodes untersucht und ent- 
sprechende Meldungen auf dem Bildschirm ausgegeben 
werden. Der Anwender weiß dann stets auch ohne Ab- 
bruch des Programms, welche Störungen während des 
Ablaufs aufgetreten sind. Im zweiten Teil des Buches 
wird ın Lektion 13 »Verbesserungen« auf die Programm- 
ergänzung durch einen effizienten Fehlerblock einge- 
gangen. 

Neben DS und DS$ sind im Zusammenhang mit Fehler- 
meldungen noch die Systemvariablen EL, ER und ERR$- 
Funktion interessant, denn DS und DS$ beziehen sich le- 
diglich auf Fehler ım Diskettenbetrieb. ER nimmt beim 
Auftreten eines normalen BASIC-Programmfehlers den 
entsprechenden Fehlercode an; ERR$(Code) liefert den 
dazugehörenden Text. Zum Beispiel hat der SYNTAX- 
ERROR, der beim falschen Schreiben eines BASIC-Wor- 
tes auftritt, den Code 11. Tritt dieser Fehler auf, nimmt al- 
so ER den Wert ll an und die Funktion ERR$(11) oder 
ERR$(ER) den Text SYNTAX. Die Systemvariable EL lie- 
fert — wenn eın Fehler innerhalb eines Programmablaufs 
auftritt — sogar die Zeilennummer, in der der Fehler ver- 
ursacht wurde. 


Ein Programm kann ohne Abbruch fortgesetzt werden, 
selbst wenn die Codes und Texte von Systemvariablen 
mit Hilfe von PRINT-Anweisungen ausgegeben wurden. 
Hierzu ist jedoch eine weitere Anweisung notwendig. Es 
handelt sich um die RESUME-Anweisung (engl. »wieder- 
aufnehmen«). Das Beispiel einer praktischen Anwendung 
der RESUME-Anweisung liefern die folgenden Zeilen. 
Geben Sie diese Zeilen jedoch nicht ein, solange sich 
das Datenverwaltungsprogramm im Arbeitsspeicher des 
Computers befindet. Der entsprechende Programmab- 
schnitt würde durch die Neueingabe überschrieben, die 
bestehenden Anweisungen also gelöscht. Wenn Sie die 
folgenden Zeilen eingeben wollen, sichern Sie zuerst das 
Datenverwaltungsprogramm, und geben Sıe dann den 
NEW-Befehl. Es genügt aber auch, wenn Sie das kurze 
Beispiel-Listing lediglich hier im Buch studieren. 


E01 IF ER=11 THEN PRINT ERRSC11);” IN ZEI 


70 RESUME 30 


RUN 
SYNTAX IN ZEILE 20 


JEIZI STIMMT ALLES 


READY. 
Ma 


Hier wurde bewußt ın Zeile 20 ein Schreibfehler eingege- 
ben (PINT statt PRINT). Das führt ohne TRAP-Anweisung 
nach dem RUN-Befehl zum Abbruch des Programms mit 
der Fehlermeldung SYNTAX ERROR IN 20. Aufgrund 
der TRAFP-Anweisung verzweigt das Programm in diesem 
Fall jedoch zur Zeile 60, wo verglichen wird, ob die 
Systemvariable ER den Wert 1] angenommen hat. Wenn 
dies zutrifft (es trıfft natürlich zu), soll der Text zum Feh- 
lercode 11 durch die ERR$-Funktion sowie die Zeile, in 
der der Fehler entstanden ist, ausgegeben werden. Da- 
nach setzt das Programm seinen Ablauf durch die folgen- 
de RESUME-Anweisung in Zeile 30 fort und gibt nach 
einer Sekunde den Text »JETZT STIMMT ALLES« aus. In 
Zeile 50 finden Sie schließlich noch eine END-Anweisung 
(vergleiche Lektion 2). Das Programm würde auch ohne 
die END-Anweisung seinen Äblauf beenden, jedoch be- 
wirkt END, daß dıe Werte von Variablen (also auch der 
Systemvarlablen) auf Null gesetzt beziehungsweise mit ei- 
nem Leerzeichen belegt werden. Außerdem werden mit 
der END-Anweisung alle geöffneten Datenkanäle ge- 
schlossen. Wenn in einem BÄASIC-Programm gar keine 
Datenleitungen benutzt oder durch die DCLOSE #- 
Anweisung bereits geschlossen wurden und die Werte 
von Varlablen nach Abschluß eines Programms keine 
Rolle spielen, kann auf die END-Anweisung ganz 
verzichtet werden. 

Eine vollständige Liste der Fehlercodes und entspre- 
chenden Texte finden sich ın der Bedienungsanleitung 
zum Commodore 128 ım Kapitel 8 sowie in der Bedie- 
nungsanleitung des Diskettenlaufwerks auf den Seiten 
137 bıs 143. Auf weitere Systemvarlablen wird im zweiten 
Teıl des Buches eingegangen. 


Lektion 11 


Druckeransteuerung 


Bis auf den Auswahlpunkt 4, »Daten ausdrucken« im 
Hauptmenü des Datenverwaltungsprogramms, sind nun 
alle notwendigen Programmabschnitte eingegeben. Es 
lassen sich damit private und geschäftliche Daten erfas- 
sen, ändern, sortieren, selektieren und auf dem Bild- 
schirm lesen. Da sich eine beliebige Anzahl von einzel- 
nen Dateien aufbauen läßt (für dıe je nach ıhrem Umfang 
eigene Disketten angelegt werden sollten) und überdies 
die Eingaben selbst von unterschiedlicher Art sein kön- 
nen, steht eine flexible und nützliche Computeranwen- 
dung zur Verfügung. Sofern bei den Eingaben, Datensi- 
cherungen oder Leseroutinen Fehler oder Schwierigkei- 
ten auftreten, können die möglichen Ursachen durch das 
Studium von Lektion 12, »Schwierigkeiten und Fehlerbe- 
hebung«, sicherlich beseitigt werden. 

Die Anwenderfreundlichkeit eines Programms läßt sich 
jedoch noch wesentlich steigern, wenn alle gespeicher- 
ten Daten nicht nur auf dem Bildschirm, sondern auch auf 
Papier sıchtbar werden. Hierfür ıst der Anschluß eines 
Druckers erforderlich. Zum Zeitpunkt der Ausarbeitung 
dieses Buches stand kein Drucker von Commodore zur 
Verfügung, der ın der Lage war, den technischen Mög- 
lichkeiten des Commodore 128 zu entsprechen (kein Aus- 
druck von Umlauten im DIN-Modus). Somit mußte für den 
Ausdruck der Listings auf das Angebot des freien Mark- 
tes zurückgegriffen werden. Wegen der großen Modell- 
vielfalt und der unterschiedlichen Möglichkeiten gerade 
im Betrieb mit dem Commodore 128 werden vor der Pro- 
grammierung der ÄAusdruckroutine einige generelle In- 
formationen über Drucker und Drucktechniken gegeben. 
Die erste und grundsätzliche Unterscheidung bei Druk- 
kern wird zwischen Impact- und Non-Impact-Geräten ge- 
macht. Bei den Impact-Druckern findet durch mechani- 
schen Anschlag eine direkte Berührung mit dem Papier 
statt. Die einzelnen Buchstaben können dabeı aus Ganz- 
zeichen bestehen oder aus einer Matrix zusammenge- 
setzt sein, so wle auch die Zeichen des Commodore aus 
einer 8 mal 8-Punktematrix bestehen. Die Ganzzeichen- 
drucker arbeıten ın der Regel mit einem Typenrad. Ver- 
einzelt findet man auch Drucker mit Typenkorb oder Ku- 


gelkopf. Beim Impact-Matrixverfahren werden die einzel- 
nen Zeichen durch Nadeln gebildet, dıe gegen eın Farb- 
band auf das Papier schlagen. Durch die direkte Berüh- 
rung mit dem Papier lassen sich mit Impact-Druckern von 
einem Ausdruck mehrere Durchschläge anfertigen. Die 
Anzahl der möglichen Durchschläge ist jedoch meist auf 
zwei oder drei begrenzt. 

Bei den Non-Impact-Druckern findet keine mechanische 
Berührung mit dem Papier statt; sie arbeiten entweder 
nach dem Thermodruckprinzip (durch Wärmeeinwir- 
kung) oder mit Tintendüsen (Tintenstrahldrucker). Eine 
Aritte Gruppe von Non-Impact-Druckern sind die Laser- 
drucker, wo die Übertragung der Zeichen auf das Papier 
im xerografischen Verfahren stattfindet, also wie bei ei- 
nem Fotokopiergerät. Da Jedoch Laserdrucker praktisch 
nur ın größeren Betrieben und rein professionell einge- 
setzt werden, sind sie im Zusammenhang mit der Commo- 
dore-Anwendung hier nicht weiter interessant. 
Non-Impact-Drucker arbeiten ebenfalls mit einer Punkt- 
matrix, die in der Regel wesentlich feiner aufgelöst ist als 
beı Nadeldruckern. Durchschläge können mit Non- 
Impact-Druckern jedoch nıcht angefertigt werden. 

Mit Nadel-Matrixdruckern lassen sich aufgrund ihrer Ge- 
schwindigkeit und verschiedenen Schriftarten sowohl 
größere Textmengen als auch einzelne Briefe oder Daten 
ausdrucken. Sıe sind daher für ein Datenverwaltungspro- 
gramm besonders Interessant. 

Die einzelnen Textzeichen werden bei diesem Druk- 
kertyp aus einer Punktmatrix zusammengesetzt. Sie kann 
— je nach Qualität des Druckers — aus 7 mal 9, 9 mal ll, 
18 mal 24 oder einer anderen Anzahl von Einzelpunkten 
bestehen. Mit steigender Punktdichte steigt auch die 
Qualität des Schriftbildes. 

Im Druckkopf eines Nadel-Matrixdruckers sınd die ein- 
zelnen Nadeln ın einer Reihe übereinander angeordnet. 
Bei Druckermodellen, die für den hier erforderlichen 
Einsatz in Frage kommen, sind dies neun Nadeln. Bei teu- 
ren und professionellen Geräten finden sich häufig zwei 
Reihen a neun oder zwölf Nadeln nebeneinander. Da- 
durch entsteht ein äußerst geschlossenes Schriftbild. 
Beim Ausdrucken bewegt sıch der Druckkopf fortlaufend 
horizontal in winzigen Schritten bidirektional (von lınks 
nach rechts, von rechts nach links und so weiter) und 
schlägt dabeı jeweils die Nadeln, entsprechend der 
Punktmatrix des Zeichens, gegen das Farbband. Im hın- 
teren Teil des Druckkopfes befindet sıch für Jede Nadel 
ein Elektromagnet. Er bewegt, sobald er von Strom 
durchflossen wird, einen sogenannten Klappenanker. An 
diesem Klappenanker sind die Drucknadeln befestigt. 
Der Durchmesser der einzelnen Nadeln beträgt je nach 


Druckermodell zwischen 0,2 und 0,3 mm. Nach jedem 
Anschlag wird die Nadel mit einer Feder oder einem 
Permanentmagneten wieder in die Ursprungsposition 
zurückgezogen. Gleichzeitig bewegt sich der Druckkopf 
horizontal um eine Nadelbreite weiter. 

Die meisten Nadel-Matrixdrucker bieten einen Normal- 
und einen Schönschriftmodus (NLQ-Qualität = Near Let- 
ter Quality). Im Schönschriftmodus lassen sich auch mit 
einem 9-Nadel-Drucker beachtliche Qualitäten erzielen. 
Der Trick besteht darın, daß alle Zeichen zweimal ge- 
druckt werden, wobei die Walze, die das Papier führt, 
vor dem zweiten Durchgang (Pass) um 1/72- oder 1/144- 
Zoll zurückbewegt wird. Der Nachteil des NLQO-Modus ist 
die Verlangsamung der Druckgeschwindigkeit. Wäh- 
rend Nadel-Matrixdrucker ım Normalmodus 100 bis 200 
Zeichen pro Sekunde ausdrucken, sind es ım NLO- 
Modus nur 20 bis 80 Zeichen. Auch für die Ausdrucke in 
diesem Buch wurde eın Nadel-Matrixdrucker mit NLQ- 
Schrift eingesetzt. Es war dabei zu beachten, daß die 
ASCII-Codes des Commodore-Zeichensatzes, die vom 
Computer über eine Datenleitung zum Drucker gesendet 
wurden, durch ein spezielles elektronisches Verbin- 
dungselement, einem sogenannten Interface (engl. 
wörtlich »Zwischengesicht«) in Signale umgewandelt wur- 
den, dıe dem Zeichenvorrat des Druckers entsprachen. 
Da dıe Anschlüsse an der Konsole des Commodore 128 
nicht genormt sind, mußte hierfür eine Gerätekonfigura- 
tion gewählt werden, die technisch auf Commodore- 
Betrieb eingestellt ıst. Im vorliegenden Fall war dies der 
Star-Drucker SR-1l0O mit dem Wiıesemann-Interface WW 
92000/G. 

Natürlich lassen sıch auch andere Konfigurationen mit 
dem Commodore verbinden, zum Beispiel Typenrad- 
drucker. Deren Druckprinzip läßt sich folgendermaßen 
erklären: Mit Hilfe eines Elektromagneten, der einen so- 
genannten Hammer steuert, werden die Schriftzeichen 
des Typenrades als Ganzes gegen ein Farbband ge- 
schlagen und dadurch auf das Papier übertragen. Genau 
wıe beim Nadel-Matrixdrucker bewegt sich der Druck- 
kopf dabeı horizontal ständig weiter. 

Die Druckgeschwindigkeit von Typenraddruckern liegt 
zwischen 20 und 90 Zeichen pro Sekunde. Gegenüber 
dem besonderen Vorteil, sehr unterschiedliche Schrift- 
typen benutzen zu können und eine hervorragende 
Schriftqualität zu erhalten, liegt der Nachteil von Typen- 
raddruckern ın der hohen Geräuschentwicklung. Es ist 
kaum möglich, neben einem druckenden Gerät eın Tele- 
fongespräch zu führen. Für die rein private Anwendung 
kommen Typenraddrucker weniger zum Einsatz, weil es 
mit ihnen nicht möglich ist, Grafikzeichen aus einem Li- 
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Der NB-15 von Star 

arbeitet mit einer Geschwindigkeit 
von 300 Zeichen/Sekunde. 

Im NLQ-Modus sind es 

immer noch 100 Zeichen/Sekunde. 


sting auszudrucken, so wie sie beim Aufbau der Bild- 
schirmmaske ın diesem Datenverwaltungsprogramm be- 
nutzt werden. 

Auch Tintenstrahldrucker sınd mehr für den Büroeinsatz 
konzipiert und weniger für den Betrieb ım häuslichen 
Rahmen. Trotzdem können sıe auch hier interessant sein. 
Sie zeichnen sıch insbesondere durch Schnelligkeit und 
geringe Geräuschentwicklung aus. Mit einer Flugge- 
schwindigkeit von rund 700 km/h werden bei Tinten- 
strahldruckern aus übereinander angeordneten Düsen 
winzige Tintentröpfchen gegen das Papier geschleudert. 
Dadurch entstehen Kleckse von rund 0,16 mm Durchmes- 
ser. Hinsichtlich der Schriftqualität haben die meisten 
Tintenstrahldrucker ähnliches zu bieten wie Nadel- 
Matriıxdrucker. Die Punktmatrix der Zeichen ist bei bei- 
den Gerätetypen oft identisch. 

Auch beı Thermodruckern sind die einzelnen Textzei- 
chen aus einer Matrix zusammengesetzt. Anstelle von Na- 
deln oder Düsen ıst der Druckkopf hier mit einer Reihe 
von elektrischen Widerständen versehen, die bei Qua- 
lıtätsmodellen sehr eng auf einem Silizium-Chip zusam- 
menliegen. Wenn diese Widerstände mit Strom durch- 
flossen werden, erhitzen sie sich und schmelzen die 
hauchdünne Wachsschicht eines Spezialpapiers. Dabei 
kommt dıe darunterliegende Farbe (meist Grau) zum Vor- 
schein. Man kann diese Farbe auch durch Kratzen mit 
dem Fingernagel auf dem Papier sıchtbar machen. 

Die Schmelztemperatur liegt zwischen 70 und 120 Grad 
Celsius. Da sich die Widerstände nach jedem Erhitzen 
wieder abkühlen müssen, sind der Ausdruckgeschwin- 
digkeit von Thermodruckern gewisse Grenzen gesetzt. 
Trotzdem können die Kapazitäten bei fünf bis zehn Seiten 
pro Minute liegen. Der Nachteil dieses Druckertyps ist 
der Ausdruck selbst. Das beschichtete Spezialpapier 
vergilbt ım Laufe der Zeit, besonders wenn es starker 
Sonnenbestrahlung oder elektrischem Licht ausgesetzt 
wird. Neuere Entwicklungen von Thermodruckern benö- 
tigen kein Spezialpapier mehr, sondern arbeiten in Ver- 
bindung mit einer Farbbandkassette, deren Material auf 
normales Papier eingeschmolzen wird. (Weiterführende 
Informationen über Drucker und ihre Anwendungs- 
möglichkeiten finden sich im Falken-Buch »Drucker und 
Plotter. Text und Grafik für Ihren Computer«, F,Bestr.Nr.: 
10/4315 von K-H. Koch.) 

Um ım Betrieb mıt dem Commodore 128 eın Zeichen oder 
einen vollständigen Text ausdrucken zu können, ist kein 
umfangreicher Programmieraufwand notwendig. Die not- 
wendigen Anweisungen sınd den Diskettenoperationsan- 
weiısungen ähnlich. Auch zum Drucker muß eine Daten- 
leitung geöffnet werden, jedoch wird hierfür nıcht die 


DOPEN#-Anweisung benutzt, sondern die Anweisung 
OPEN. Die OPEN-Anweisung wird auch für andere Ope- 
rationen eingesetzt (zum Beispiel im Betrieb mit einem 
Kassettenrecorder) und benötigt folgende Angaben: 


Genau wie ım Diskettenbetrieb wird zur Ansteuerung 
eines Druckers eine Dateinummer von | bis 255 angege- 
ben. Jedoch muß dieser Dateinummer kein Nummernzei- 
chen (#) vorangestellt werden. Als Geräteadresse ist von 
seiten des Betriebssystems der Wert 4 für den Drucker 
reserviert. Insgesamt stehen auch hier Angaben vom 
Wert 1 bis 255 zur Verfügung, die sich folgendermaßen 
aufteilen: 


Tastatur 

Kassettenrecorder 

RS-232-Gerät (zum Beispiel Modem zur Daten- 
fernübertragung) 

3 Bildschirm 

4 Drucker 

®) Drucker (alternativ) 

N 

8 


Do 


Plotter 
Diskettenstation 

9 Diskettenstation (alternativ) 

10-127 Für Datenübertragung zu Geräten ohne Senden 
eines Zeilenvorschubs am Ende der Übertra- 
gung 

128-255 Für Datenübertragung zu Geräten mit Senden 

eines Zeilenvorschubs am Ende der Übertra- 

gung 


Beim Einschalten des Computers ist zur Tastatur und zum 
Bildschirm automatisch eine Datenleitung eröffnet. Für al- 
le anderen Geräte muß mit Hilfe der OPEN- beziehungs- 
weise DOPEN#-Anweisung das gewünschte Gerät ange- 
sprochen werden. Die Sekundäradresse hat hauptsäch- 
lıch bei der Druckeransteuerung Bedeutung. Mit ihr wer- 
den verschiedene Druckmodi aktiviert, die den einzel- 
nen Text-/Grafikbetriebsarten des Computers entspre- 
chen. Folgende Angaben sınd möglich: 


0 Cursor-up-Modus: Es werden Großbuchstaben und 
Blockgrafikzeichen ausgedruckt 

l Drucker Direktmodus: Es werden die Zeichen aus 
dem Zeichenvorrat des Druckers gedruckt, die als 
ASCII-Codes vom Computer gesendet ausgehen 

2 Groß-/Kleinschriftmodus: Es werden die Groß-/ 
Kleinbuchstaben des Computers sowie die In die- 
ser Betriebsart möglichen Grafikzeichen ausge- 
druckt 

3 Modus-Fixierung: Ein einmal definierter Druckmo- 
dus bleibt bis zum Ausschalten des Computers ak- 
tıv und kann durch eine Neudefinition nicht geän- 
dert werden 

7 Cursor-down-Modus: Es werden Groß-/Kleinbuch- 
staben, Jedoch keine in dieser Betriebsart mögli- 
chen Grafikzeichen ausgedruckt 


Diese Angaben können beı der Verwendung der ver- 
schiedenen firmenfremden Interfaces und Drucker von- 
einander abweichen. Man sollte ın jedem Fall vor dem 
Kauf eines Druckers prüfen, ob die einzelnen Druckmodi 
überhaupt aktiviert werden können. Die korrekte 
Schreibweise für den Ausdruck eines Wertes oder Tex- 
tes ıst: 


open 1,4,Sekundäradresse 
Printäl,.a 


Genau wie bei der Bildschirmausgabe können numeri- 
sche Werte oder Variablen der PRINT#-Anweisung di- 
rekt folgen, während Zeichenketten oder alphanumeri- 
sche Varlablen in Anführungsstriche gefaßt werden 
müssen. Beispiel: 


open 1,4,2 

print #1,1000 
print#1,"Testausdruck" 
close 1 


Beı angeschlossenem und eingeschaltetem Drucker wer- 
den die Zahl 1000 und der Text »Testausdruck« zu Papier 
gebracht. Zum Abschluß von Druckanweisungen muß 
die Datenleitung wieder geschlossen werden. 

Neben dem Ausdruck von numerischen und alphanume- 
rıschen Werten kann über den Drucker auch ein Pro- 
gramm-Listing ausgegeben werden. Hierzu ist jedoch eın 
BASIC-Befehl notwendig: CMD. Mit dem CMD-Befehl ist 
es möglıch, eine Ausgabe, dıe normalerweise auf dem 
Bildschirm erfolgt, zu einem anderen Gerät umzuleiten. 
Beispiel für die Ausgabe eines Listings: 


open 1,4,2 
cmd 1 

11st 
print#1 
close 1 


Beispiel für dıe Ausgabe eines numerischen und alpha- 
numerischen Wertes: 


open 1,4,2 

cmd 1 

print 1000; "Testausdruck" 
print#1 

print 1000; "Testausdruck" 
close 1 


Im ersten Fall wird der Datenkanal | zum Drucker für 
den Groß-/Kleinschriftmodus eröffnet und durch den 
CMD-Befehl die Datenausgabe (also der LIST-Befehl) 
zum Drucker umgeleitet. Das ım Arbeitspeicher des 
Computers befindliche BASIC-Programm erscheint statt 
auf dem Bildschirm in einem Ausdruck. Im zweiten Fall 
wird durch die Ausgabeumleitung die PRINT-Anweisung 
auch ohne Zusatz des Nummernzeichens und Angabe der 
Datenkanalnummer über den Drucker ausgeführt, das 
heißt dıe Zahl 1000 und der Text »Testausdruck« erschei- 
nen auf dem Papier und nicht auf dem Bildschirm. Die 
nachfolgende PRINT#-Anweisung, die ohne Angaben 
von Werten programmiert werden muß, hebt den CMD- 
Befehl auf, so daß bei der Wiederholung der PRINT- 
Anweisung die Zahl und der Text wie gewohnt auf dem 
Bildschirm sichtbar werden. Mit der CLOSE-Anweisung 
wird die Datenleitung zum Drucker wieder geschlossen. 
Es bleibt dem Anwender selbst überlassen, ob er einen 
Drucker mit OPEN Datenkanal,4,Sekundäradresse und 
PRINT# ansteuert oder mit Hilfe des CMD-Befehls und 
einfachen PRINT-Anweisungen. In der Praxis ist es sinn- 
voll, beim Ausdruck einzelner Werte mit PRINT# zu ar- 
beiten und mehrere Druckanweisungen mit Hilfe des 
CMD-Befehls und PRINT-Anweisungen abzuwickeln. 


Bei der Programmierung der Äusdruckroutine ım vorlie- 
genden Datenverwaltungsprogramm wird der CMD- 
Befehl eingesetzt, weil jeweils ein kompletter Datensatz 
ausgedruckt wird und man durch den CMD-Befehl die 
häufige Eingabe des Nummernzeichens und der Da- 
tenkanalnummer sparen kann. Da überdies das Unter- 
menü für die Druckeransteuerung die gleichen Auswahl- 
punkte bietet wie das Untermenü zum Lesen von Daten 
auf dem Bildschirm, kann der gesamte Komplex, der ın 
Lektion 10 programmiert wurde, durch die Ergänzung 
von nur einer Programmzeile auch für dıe Druckeraus- 
gabe genutzt werden. 


Daten ausdrucken 
Datei chronologisch drucken 


1; 
E. Temporär definierte Daten 
drucken 


3 Sortierte Datei drucken 
ır, Selektierte Datei drucken 


ep Zurück zum Hauptmenü 


Ihre Eingabe: 


Hinweis: Das komplette Datenverwaltungsprogramm mit 
den in dieser Lektion aufgeführten Ergänzungen fin- 
det sich auf der Begleitdiskette unter dem Dateinamen 
»LEKTION 1le«. 


ready. 


1660 dm=1:open 4,4,2:goto 550 


Die Variable dm ist — ebenso wie hv — eıne Hilfsvarila- 
ble, mit der bei einer IF... THEN-Anweisung ein bestimm- 
ter Systemzustand überprüft werden kann. Der Varla- 
blenname dm wurde hier als Abkürzung für »Druckmo- 
dus« gewählt. Mit der OPEN-Anweisung 4,4,2 wird Da- 
tenkanal 4 zum Drucker für den Groß-/Kleinschriftmodus 


eröffnet. (Datenkanal 4 wurde hier verwendet, weil die 
Kanäle 1 bis 3 für Diskettenoperationen eingesetzt wer- 
den.) Je nach verwendetem Drucker und Interface muß 
eine andere Sekundäradresse angegeben werden, um 
einen einwandfreien Ausdruck zu erhalten. Als letztes er- 
folgt durch die GOTO-Anweisung die Verzweigung zur 
Zeile 660, das heißt zur Leseroutine. Dort wird der einge- 
gebene Auswahlpunkt des Druckerauswahlmenüs weı- 
terbearbeitet, weil die Leseroutine exakt die gleichen 
Auswahlpunkte bietet. 

Natürlich kann jetzt noch kein Ausdruck erfolgen, son- 
dern lediglich eine Bildschirmausgabe. Um dem System 
nun mitzuteilen, daß sich das Programm in Druckmodus 
befindet, muß an einer bestimmten Stelle die Hilfsvaria- 
ble dm überprüft werden. Weil bei sämtlichen Datenle- 
sevorgängen das Programm zur Zeile 4520 verzweigt, Ist 
es sinnvoll, vor dem Rücksprung zur Leseroutine feststel- 
len zu lassen, ob dm gleich | ist, das heißt ob vom Haupt- 
menü aus das Druckerauswahlmenü aufgerufen wurde. 
Solange dies nicht der Fall ist, behält die Variable dm 
den Wert O0, weil nirgendwo sonst im Programm eine an- 
dere Definition erfolgt. 

Da der mögliche Rücksprung zur Leseroutine in Zeile 
4685 überprüft wird (vergleiche Lektion 10), muß die Va- 
rıable dm ın einer Programmzeile zwischen 4680 und 
4685 auf ıhren Wert überprüft werden: 


ready. 


4682 if dm=1 then gosub 5000 


5000 rem daten ausdrucken 


SDOlO cmd 4 

5020 print "Datensatznummer: ”;dn 
5036 prine 

S0OS0 nrınt Vorname "on 


5050 print "Nachname ’ an 
S060 print "Straße MISEs 


ee Wohnort. Ess 


5090 print "Telefon > >. ‚tns; | Geb. "gb 
Bo 000 Hi EEE | u 
100 print "verheiratet En ‚vn8; Ki 
nler ";Ki u a ie 
5110 print 


5120 print ”"Lieblingsfarbe "ES 

5130 print ”Lieblingsessen ”;1e$ 

140 Brint "Lieblingsspiel ';1sS ...... 
150 print 


Im Unterprogramm ab Zeile 5000 wird zunächst mit Hilfe 
des CMD-Befehls die Datenausgabe zum Drucker umge- 
leitet, und danach folgen ganz normale PRINT-Anwei- 
sungen mit den Angaben der einzelnen Datenfelder und 
Varılablen des aktuell gelesenen Datensatzes. Zum Ab- 
schluß wird mit Hilfe der PRINT #-Anweisung (Zeile 5190) 
der CMD-Befehl reaktiviert, damit die folgenden Aus- 
gaben wieder auf dem Bildschirm erscheinen. Mit der 
RETURN-Anweisung in Zeile 5200 gelangt der Rechner 
zurück zur Zeile 4682/4685 und von dort zur Leseroutine, 
um den nächsten Datensatz einzuladen und auszudruk- 
ken. 

Mit diesen wenigen Änweisungen ist der gesamte Kom- 
plex des Datenausdrucks bewerkstelligt. Vor Verlassen 
der Lese-/Ausdruckroutine beziehungsweise vor Beendi- 
gung des Programms sollte der Datenkanal zum Drucker 
geschlossen werden. Dies wird mit Zeile 970 vollzogen, 
wo auch die beiden aktivierten Datenleitungen zur Dis- 
kettenstation geschlossen werden: 


ready. 


970 dclose#l:dclose#o2:close 4 


Mit dem einfachen Ausdruck von Texten und numeri- 
schen Werten sınd die Möglichkeiten der Druckeran- 
steuerung nıcht erschöpft. Im zweiten Teil des Buches fin- 
den sıch ım Abschnitt »Fluchtsequenzen zur Ausdruckop- 
timierung« weiterführende Informationen hierzu; zum Bei- 
spiel ıst es möglich, einzelne Texte durch bestimmte An- 
weisungen vom übrigen Text besonders hervorzuheben, 
Wörter zu unterstreichen oder ın Rahmen zu setzen. 


Datensatznummer: 1 


Vorname Kirsten 

Nachname Buss 

Straße Hannoversche Str. 123 

FL2: Je2.s0 Wohnort: Hameln 
Telefon 05151/123456 eb, 4.13.68 
verheiratet (n) Kinder O 


Lieblingsfarbe rot 
Lieblingsessen Fisch 
Lieblingsspiel Monopoly 


Eintrag A Lehrerin Eintrag B beamt. 
Eintrag C sportlich Eintrag D Turnen 
Eintrag E spricht gut französisch 


Datensatznummer: a 

Vorname Jörg 

Nachname Schiemann 

Straße Katharinenstr. 30 

PLZ: 3£00 Wohnort: Hildesheim 
Telefon 05121/222345 beb, 12,7, 
verheiratet (n) Kinder O 


Lieblingsfarbe grau 
Lieblingsessen Lurrywurst 
Lieblingsspiel Schach 


Eintrag A Architekt Eintrag B selbst. 
Eintrag C sportlich Eintrag D Tennis Beispiel von 
Eintrag E schwärmt für schnelle Autos ausgedruckten Datensätzen 


: weisung y eingebundenen Text. 


Lektion 12 


Schwierigkeiten und 
Fehlerbehebung 


Mit dem Einfügen der Ausdruckroutine ıst das Datenver- 
waltungsprogramm fertiggestellt. Sie verfügen nun über 
ein leistungsfähiges Anwenderprogramm für private und 
berufliche Zwecke. Gleichzeitig haben Sie im Verlauf der 
einzelnen Lektionen die Grundzüge der Programmier- 
sprache BASIC gelernt. Teilweise werden Sıe dabeı über 
die Leistungen des Computers erstaunt gewesen sein, 
teils aber auch verärgert, weıl sich vielleicht Fehlermel- 
dungen gezeigt haben, für die Sıe keine Erklärung wuß- 
ten. Neben dem einfachen Falschschreiben von BASIC- 
Wörtern (SYNTAX ERROR) könnten sıch auch Probleme 
bei der Bildschirmausgabe, der Datensicherung auf Dis- 
kette oder beim Ausdruck ergeben. Diese Lektion wid- 
met sich daher den Schwierigkeiten, die sıch beı der 
BASIC-Programmierung immer wieder eınmal einstellen 
können. Die folgenden Erläuterungen sınd ın drei ÄAb- 
schnitte eingeteilt: 


Sollten Sıe trotz Durcharbeitung dieser Lektion keine voll 
funktionssichere Version des Datenverwaltungspro- 
gramms erstellen können, liegt möglicherweise eın tech- 
nıscher Mangel ım System vor, der nur durch eıne ent- 
sprechende Überprüfung beim Händler behoben wer- 
den kann. 

Anzumerken ıst noch, daß ın den folgenden Abschnitten 
nıcht auf sämtliche möglichen Fehlermeldungen einge- 
gangen wird, dıe im Commodore-Betrieb möglich sınd. 
Verzichtet wurde auf Meldungen, die durch einfache Be- 
dienungsfehler entstehen (zum Beispiel führt das Drük- 
ken der STOFP-Taste während eines Programmablaufs 
zum Abbruch). Eine knappe, aber vollständige Beschreı- 
bung solcher Fehler findet sıch ın der Bedienungsanleı- 
tung zum Commodore 128 ım Abschnitt 8. 


Fehler beim BASIC-Programmablauf 


(Angaben ın Klammern sind die Fehlercodes.) 


BAD SUBSCRIPT (18), »Falsch angegebener Wert« Wenn 
versucht wird, eine Komponente einer indizierten Varla- 
blen zu definieren, die außerhalb des indizierten Berei- 
ches liegt, tritt dieser Fehler auf. Beispiel: 


10 dim a(20) 
eD alecı 31000 


DEVICE NOT PRESENT (5) »Gerät nicht angeschlossen«: 
Es wird versucht, ein externes Gerät (Diskettenlaufwerk, 
Drucker) anzusteuern, das nicht eingeschaltet ıst. Dieser 
Fehler kann auch auftreten, wenn die Verbindungskabel 
nicht richtig eingesteckt sınd oder aber die Gerätekonfi- 
guration In falscher Reihenfolge eingeschaltet wurde. Die 
beste Reihenfolge zur Inbetriebnahme des Computer- 
systems Ist: Drucker einschalten, Diskettenlaufwerk eın- 
schalten und eine formatierte Diskette einlegen, dann 
den Computer und Bildschirm einschalten. 


DIVISION BY ZERO (20) »Teilung durch Null« Wenn ver- 
sucht wird, einen numerischen Wert durch Null zu teilen, 
erfolgt diese Fehlermeldung. In BASIC wird die Division 
von Zahlen durch einen Schrägstrich (/) programmiert. 


ic 531008 
e0O print b/a 


Da der Varlablen a kein Wert zugewiesen wurde, Ist ihr 
Wert Null. Bei dem Versuch, den Wert der Variablen b 
(1000) durch a zu dividieren, entsteht ein DIVISION BY 
ZERO ERROR. 


FORMULA TOO COMPLEX (25) »Formel zu komplex«: 
Wenn versucht wird, komplexe mathematische Funktio- 
nen mit nur einer Änweisung zu programmieren, kann es 
zu dieser Fehlermeldung kommen. Die Rechenoperatio- 
nen müssen ın mehrere Einzelschritte aufgeteilt werden. 


ILLEGAL DIRECT (21) »Unerlaubte Direktanweisung«: Es 
wurde versucht, eine Anweisung im Direktmodus (also 
ohne Programmzeilennummer) zu geben, die nur auf Pro- 
grammebene ausgeführt werden kann. Beispiel: 


input a$ LRETURN) 


ILLEGAL QUANTITY (14) »unzulässiger Wert« Dieser 
Fehler entsteht, wenn das System angewlesen wird, eine 
Anweisung oder Funktion mit Werten auszuführen, die 
außerhalb des möglichen Bereichs liegen. Dies kann zum 
Beispiel bei Posıtionsangaben außerhalb des Bildschirms 
oder bei ASCII-Codes auftreten, die nicht existieren (der 
höchste ASCII-Code liegt bei 255). ILLEGAL QUANTITY 
wird auch ausgegeben, wenn versucht wird, eine Feldva- 
rıable mit einem übergroßen Indexwert zu indizieren: 
dim a(100000). Weitere Beispiele: 


print chersi2iß) 
char 1,100,100, "test” 


NEXT WITHOUT FOR (10) »NEXT ohne FOR« Das Pro- 
gramm ist auf eine NEXT-Anweisung gestoßen, ohne daß 
eine vorhergehende FOR-Anweisung vorlag. Dieser Feh- 
ler trıtt häufig auf, wenn man ein Programm in einen Äb- 
schnitt verzweigen läßt, der inmitten einer geschlossenen 
FOR...NEXT-Anweisung liegt. Beispiel: 


iu srioo0 ll. 


za 12) ou 


Bu 


OUT OF DATA (13) »keine Daten mehr« Eine DATA- 
Anweisung darf nie weniger Ängaben enthalten, als mit 
der READ-Anweiısung gelesen werden sollen. Ein Man- 
gel an Daten kann durch fehlerhafte Eingaben entstehen, 
oder ındem ein Datenvorrat mehrfach gelesen werden 
soll, ohne vorherige RESTORE-Anweisung. 


l. Beispiel: 
falsch 


25 restore: next x 
:30 data 10.20,30: 


OUT OF MEMORY (16) »kein Speicherplatz«: Der Arbeits- 
speicher des Computers ist begrenzt. Wenn ein Pro- 
gramm zu lang wird, sehr viele FOR... NEXT- und GOSUB- 
Anweisungen gegeben werden oder mit Hilfe der DIM- 
Anweisung ein zu großes Feld angelegt wird, kann es zu 
dieser Meldung kommen. Nach dem Einschalten des 
Computers stehen 58079 Speicherplätze (Byte) zur Ver- 
fügung (dies kann mit der Funktion FRE durch print fre(x) 
ermittelt werden). Nach dem Einladen des Datenverwal- 
tungsprogramms zum Beispiel sind noch 48236 Speı- 
cherplätze (Byte) unbelegt. Das Programm beansprucht 
somit 9843 Byte ım Arbeitsspeicher. Trotzdem ist es 
möglıch, mit nur einer Anweisung den gesamten Spel- 
cherplatz zu belegen: 


dim acC120,120) 


Hier wird versucht, eine Feldvarıable mit 120 mal 120 
Komponenten einzuführen. Diese Datenmenge kann 
der Computer nicht verarbeiten, so daß er OUT OF 
MEMORY angibt. 


OVERFLOW (15) »Überlauf«: Das Ergebnis einer Berech- 
nung übersteigt den größtmöglichen für den Computer 
darstellbaren Wert. Dieser Fehler tritt zum Beispiel bei 
Potenzierungen auf, wenn die Argumente zu groß sind 
(1000). In BASIC wird eine Potenzierung mit dem Hoch- 
pfeil programmiert: 


print 10001222 


REDIM’'D ARRAY (19) »mehrfach indizierte Feldvariable«: 
Eine DIM-Anweisung darf ım Verlauf eines Programms 
nur einmal für eine bestimmte Feldvariable gegeben 
werden. Wird aus programmfunktionalen Gründen eine 
Mehrfachindizierung notwendig (zum Beispiel bei mehr- 
fachem Aufruf der Sortierroutine des Datenverwal- 
tungsprogramms), so müssen alle Varlablenwerte zuvor 
mit dem CLR-Befehl gelöscht werden. Beispiel: 


falsch 


RETURN WITHOUT CGOSUB (12) »RETURN ohne 
GOSUB«: Das Programm ist auf eine RETURN-Anweisung 
gestoßen, ohne daß eine vorhergehende GOSUB- 
Anweisung vorlag. Dieser Fehler trıtt häufig auf, wenn 
man ein Programm in einen Abschnitt verzweigen läßt, 
der inmitten eines geschlossenen Unterprogramms liegt. 
Beispiel: 


STRING TOO LONG (23) »Zeichenkette zu lang« Eine 
BASIC-Zeile kann maximal 160 Zeichen verarbeiten. Eine 
alphanumerische Variable (Zeichenkette) darf Jedoch aus 
maximal 255 Zeichen bestehen. Diese Kapazıtät kann er- 
reicht werden, wenn zum Beispiel a$ aus 155 Zeichen be- 
steht und b$ aus 100. Durch eine Verknüpfung wie 
a$=a$+b$ wird a$ mit einer Zeichenkette aus 255 Zei- 
chen belegt. Wenn durch Verknüpfungen dieser Art die 
maximale Zahl von Zeichen überschritten wird, erscheint 
die STRING TOO LONG-Meldung. 


TYPE MISMATCH (22) »I’ypendurcheinander«: Es wurde 
versucht, eine Zeichenkette einer numerischen Varlablen 
zuzuweisen oder eine alphanumerische Varlable mit Hıl- 
fe eines numerischen Wertes zu definieren. Beispiel: 


falsch 


a5-100. HE ii BEE H 
a="Text” 


0, __ 
CEingabe (Eingabe eines "Teichene) 


i ut a8 

rim eines EEE 
Zeichens oder Zahli . 2 
Se -_ Ka ren. 


UNDEF'D STATEMENT (17) »nichtdefinierte Zeilennum- 
mer«: Das Programm soll zu einer Zeilennummer verzwel- 
gen, die ın Wirklichkeit nicht existiert. Die Bezugnahme 
auf nıchtdefinierte Zeilennummern führt Jedoch im Direkt- 
modus beim LIST-Befehl nıcht zu einer Fehlermeldung. 
Zum Beispiel kann LIST 10-200 [RETURN] eingegeben 
werden, wobei weder die Zeile 1O noch die Zeile 200 exı- 
stieren muß. Das Programm-Listing beginnt mit der er- 
sten Zeile mit einer Zeilennummer größer als 10 und en- 
det mit der letzten, vor 200 auffindbaren Programmzeile. 


Fehler ım Diskettenbetrieb 


Die häufigsten Fehler, die bei der Anwendung des Da- 
tenverwaltungsprogramms, aber auch anderer selbster- 
stellter BASIC-Programme auftreten, werden sıch nıcht 
auf den einfachen BASIC-Programmablauf beziehen, son- 
dern auf die Datenkommunikation mit dem Diskettenlauf- 
werk. Eine Grundschwierigkeit — das normale Sıchern 
eines Datensatzes in eine Relative Datei — wurde durch 
die Jeweils doppelt gegebenen Schreibanweisungen 
weitgehend behoben. Trotzdem kann es noch zu un- 
erwünschten Effekten beim Sichern oder Lesen von Da- 
ten kommen, Insbesondere: 


Meistens treten der erste und zweite Fehler gemeinsam 
auf, das heißt bei dem Versuch, einen Datensatz zu lesen 
und auf dem Bildschirm auszugeben, erscheinen nur die 
ersten Datenfelder (oft auch unvollständig oder mit ande- 
ren Zeichen als bei der Eingabe) und das Diskettenlauf- 
werk rotiert endlos weiter. Dadurch ıst auch der Compu- 
ter blockiert. Nur durch gleichzeitiges Drücken der 
[RUN/ STOP} und [RESTOREJ}- Taste oder durch Drücken 
des RESET-Schalters an der rechten Geräteseite kann 
das System wieder ın den Direktmodus geschaltet wer- 
den. In einigen Fällen müssen die Diskettenstation und 
der Computer ganz ausgeschaltet werden. Das ist wenig 
erfreulich, besonders dann, wenn ein zuvor nicht gesi- 
chertes Programm im Arbeitsspeicher war. 


Es gıbt drei möglıche Ursachen für diese Probleme: 


Wenn man eine Relatıve Dateı das erste Mal benutzt, um 
Datensätze einzugeben, müssen mindestens zweı Blöcke 
der Diskette (5l2 Byte) beschrieben werden. Da die 
Satzlänge des Datenverwaltungsprogramms in diesem 
Buch 234 Byte beansprucht, müssen mindestens dreı Da- 
tensätze bei der ersten Anwendung eingegeben werden. 
Im Gegensatz zu Diskettenbetriebssystemen anderer 
Computer, die eine sogenannte EOF-Funktion (End of 
File, engl. »Ende der Dateic) im BASIC-Vokabular anbie- 
ten, kann beim Commodore lediglich der ASCII-Code 
255 (entspricht dem rr-Zeichen) als Pseudoeingabe ın das 
erste Byte des letzten Datensatzes einer Dateı geschrie- 
ben werden. Hierfür gıbt es zweı Möglichkeiten: Man 
überlegt vor dem Änlegen einer Datei, wıeviele Da- 
tensätze man maximal benötigen wird. Dann eröffnet man 
den Datenkanal mit Angabe des Dateinamens und der 
Datensatzlänge. Schließlich läßt man mıt Hilfe einer FOR- 
..NEXT-Anweisung die zuvor überlegte Anzahl von Da- 
tensätzen durch die RECORD #-Anweisung mit »leeren« 
Daten füllen, bis der voraussichtlich letzte Datensatz 
erreicht ist, in den dann mit PRINT#n,CHR$(@255) das 
tr-Zeichen eingebracht wird. Dieser letzte Datensatz darf 
dann später bei den tatsächlichen Eingaben von Daten 
nıcht beschrieben werden, weıl dadurch das r-Zeichen 
gelöscht würde und das Dateiende für das Diskettenbe- 
triebssystem nicht mehr erkennbar wäre. Es ist auch 
möglich, mit Hilfe der RECORD#-Annweisung gleich 
den voraussichtlich letzten Datensatz anzuwählen und das 
t-Zeichen einzuschreiben; Jedoch könnten sıch auf der 
Diskette ın den Sektoren vom ersten, noch einzuge- 
benden Datensatz bis zum letzten irgendwelche Daten 
aus früheren Abspeicherungen befinden, dıe möglıcher- 
weise später zu unerwünschten Leseergebnissen führen 
(zum Beispiel, wenn sıch irgendwo ein n-Zeichen befin- 
det). Insgesamt ıst diese Methode sehr umständlich und 
unflexibel. Wenn sich zum Beispiel später herausstellt, 
daß die zunächst eingeplante Anzahl von Datensätzen zu 
hoch angesetzt war, Ist wertvoller Speicherplatz für nie 
stattfindende Eingaben reserviert. Oder aber es wurden 


zu wenig Datensätze eingeplant; dann muß die gesamte 
Datei mit anderen Anweisungen erweitert werden. 
Wesentlich effizienter ist eine flexible, simultane Eingabe 
des rr-Zeichens. Hierzu müssen Sie (bei Anwendung des 
Datenverwaltungsprogramms) lediglich folgendes tun: 
Wenn Datensätze eingegeben werden, erfolgt nach Jeder 
Abspeicherung die Abfrage, ob die Eingabe abgebro- 
chen oder fortgesetzt werden soll. Drücken Sıe, wenn Sie 
abbrechen wollen, vorher noch einmal die Taste [W] und 
geben Sıe als »Vorname« das n-Zeichen eın (zu erreichen 
durch gleichzeitiges Drücken der Commodore-Taste und 
[t]J, dıe sıch links neben der [RESTOREJ-Taste befindet). 
Für dıe Angaben der übrigen Datenfelder drücken Sıe 
einfach die [RETURNJ-Taste (oder ebenfalls m). Bei der 
Abfrage »Akzeptiert (J/N)« geben Sıe [J] ein, so daß der 
Datensatz mit den rt-Zeichen als letzter Datensatz abge- 
speichert wird, wodurch der Computer diesen beim Le- 
sen als Dateiende erkennen kann. Wenn Sıe dann später 
die Dateı erweitern wollen, rufen Sıe die letzte Datensatz- 
nummer der Datei zum »Ändern von eingegebenen Da- 
ten« auf und überschreiben das rr-Zeichen durch die Eiın- 
gabe neuer, regulärer Daten. Danach können Sıe belıe- 
bıg viele weitere Datensätze eingeben, wobeı auch hier 
der letzte Datensatz wiederum ein r-Zeichen enthalten 
sollte. Auf diese Weise verschiebt sıch das vom Disket- 
tenbetriebssystem erkennbare Dateiende mit der Einga- 
be neuer Datensätze, ohne daß vıel Speicherplatz auf der 
Diskette verloren geht. 

Die drıtte Fehlerursache — ein zu langer Datensatz — er- 
gıbt sıch, wenn das Diskettenbetriebssystem eine Daten- 
bytezahl abspeichern muß, die die Kapazität eines Blocks 
(256 Byte) übersteigt. Im vorliegenden Datenverwal- 
tungsprogramm Ist dies beı einer Satzlänge von 234 Byte 
nicht der Fall, zumal dıe Datenfelder einzeln übertragen 
und nicht durch Pluszeichen zu einer einzigen Zeichen- 
kette verknüpft werden (DATEN$= VN$+NN$+ST$...). 
Trotzdem können Sıe zur Erhöhung der Datensicherheit 
jedem Abspeichern eines Datenfeldes (also Vorname, 
Nachname und so weiter) ein künstliches [RETURN] 
Zeichen hinterhersenden. Der ASCII-Code hierfür ıst 13. 
Die PRINT#-Anweisung der Programmzeilen 3370 bıs 
3450 würden dann lauten: print#1l, vn$;chr$(13) 
und print#1,nn$;chr$(13) und so weiter. Da das [RE- 
TURNJ-Zeichen Jedoch — wie jedes andere Zeichen — 
ein Byte auf der Diskette belegt, muß die Angabe der 
Datensatzlänge ın der OPEN-Anweisung erhöht werden. 
Bei derzeit siebzehn Datenfeldern und einer Daten- 
satzlänge von 234 Byte würde sıch der Wert 251 ergeben, 
wenn jedem Datenfeld ein [RETURN}-Zeichen angehängt 
wird. Wichtig ıst hierbei noch, die Byte-Angaben für die 


RECORD-Anweiısung zu ändern, weil sıch durch das Hın- 
zufügen eines neuen Zeichens die Startpositionen der ein- 
zelnen Datenfelder verschiebt. 

Das künstliche Hinzufügen des [RETURN]J-Zeichens bietet 
sich auch beim Abspeichern von sortierten Datensatz- 
nummern an, weıl das Diskettenbetriebssystem die ein- 
zeln gesicherten Werte beim späteren Lesen möglicher- 
weise als eine zusammenhängende Zahl erkennt (zum 
Beispiel wird die Reihenfolge 3,1,2,4 mit der Routine aus 
Zelle 2400 bis 2420 nacheinander abgespeichert, beim 
Lesen jedoch als 3124 interpretiert). Da es sıch bei einer 
Sortierdatei um eine Sequentielle Dateı handelt, müssen 
keine Angaben über Start-Byte und ähnliches gemacht 
werden. Das [RETURNJ-Zeichen kann der Anweisung aus 
Zeile 2410 einfach angehängt werden: 


ready. 


e4lB prinet#3, SCk]s:0hr#{13) 


Das Flackern der Betriebslampe am Diskettenlaufwerk 
schließlich kann mehrere Ursachen haben: 


Nun zu den möglichen Fehlermeldungen des Disketten- 
betriebssystems ım einzelnen. Zum einen werden diese 
Meldungen direkt auf dem Bildschirm ausgegeben, zum 
andern kann man sie mit Hilfe der DS$-Systemvariablen 
auch selbst anzeigen lassen (zum Beispiel wenn man das 
System durch Drücken von [RUN/STOPHRESTORE] un- 
terbrechen mußte). Die Diskettenbetriebsmeldungen 
sind etwas ausführlicher als dıe BASIC-Meldungen; ne- 
ben dem Fehlercode und dem dazugehörenden Text lıe- 
fern sie noch Angaben über Spur und Sektor, in denen 
der Fehler auftrat. 


Hinweis: Diskettenbetriebsmeldungen, deren Codes kleı- 
ner als 20 sind, weisen nicht auf einen Fehler hin, son- 
dern zeigen lediglich einen bestimmten Betriebsstatus 
an, zum Beispiel 01,FILES SCRATCHES, wenn eın Dater- 
name aus dem Inhaltsverzeichnis der Diskette gelöscht 
wurde. 


READ ERROR (20) »Lesefehler«: Ein bestimmter Sektor 
auf der Diskette kann nicht gelesen werden, weil er kei- 
ne Daten aufweıst, dıe zum einwandfreien Betriebsablauf 
der Diskettenstation notwendig sind. Ein READ ERROR 
kann beim unerlaubten Kopieren geschützter kommer- 
zieller Programme entstehen oder wenn die Diskette 
beschädigt ıst. In diesem Fall kann der Fehler nicht beho- 
ben werden. 


READ ERROR (21) »Lesefehler« Ein READ ERROR mit 
dem Code 21 weist auf einen technischen Lesefehler hın, 
der durch falsch eingelegte oder unformatierte Disketten 
entsteht. Möglicherweise ist hierbei auch das Disketten- 
laufwerk selbst falsch justiert (die Anzahl der Umdrehun- 
gen beim Lesen stimmt nicht exakt mit der Anzahl der 
Umdrehungen beim Schreiben überein). 


READ ERROR (22) »Lesefehler« Wenn ein READ ERROR 
den Code 22 anzeigt, wurde versucht, eine nıcht auffind- 
bare Spur beziehungsweise einen nicht auffindbaren Sek- 
tor zu lesen oder zu beschreiben. Um den Fehler zu be- 
heben, müssen die betreffenden RECORD +#-Angaben 
überprüft werden. 


WRITE PROTECT ON (26) »Schreibschutz an«: Jede Dis- 
kette besitzt an ıhrer rechten Seite eine Einkerbung. 
Wird diese Einkerbung überklebt, kann die Diskette nur 
noch gelesen, nıcht aber beschrieben werden. Aus die- 
sem Grund spricht man hier von einer Schreibschutz- 
kerbe. Beı dem Versuch, eine auf solche Weise ge- 
schützte Diskette zu beschreiben, wird die Meldung 
WRITE PROTECT ON ausgegeben. 


RECORD NOT PRESENT (50) »Datensatz nicht vorhan- 
den«: Es wurde versucht, auf eine Datensatznummer zu- 
zugreifen, die ın Wirklichkeit nicht existiert. Zur 
Behebung muß die Datensatznummernangabe der 
RECORD #-Anweisung überprüft werden. 


OVERFLOW IN RECORD (51) »Überlauf im Datensatz«: 
Diese Meldung entsteht, wenn die Länge eines abzuspei- 
chernden Datensatzes die Byte-Angabe der OPENH#- 
Anweisung überschreitet oder wenn einem Datenfeld ein 


Start-Byte zugewiesen wird, das außerhalb des in der 
OPEN#-Anweisung festgelegten Bereichs liegt. Zur Be- 
hebung des Fehlers muß dıe Länge eines Datensatzes 
exakt errechnet werden, wobei auch Sonderzeichen wie 
der ASCII-Code 13 für das [RETURN}-Zeichen zu be- 
rücksichtigen sınd. 


FILE TOO LARGE (52) »Datei zu groß«: Die Speicherkapa- 
zität einer Diskette ıst erschöpft. Ein neuer, abzuspei- 
chernder Datensatz kann nicht mehr aufgenommen wer- 
den. Hier muß eine neue Diskette für dıe Weiterführung 
einer Datei formatiert werden. 


WRITE FILE OPEN (60) »Schreibdatei geöffnet« Diese 
Fehlermeldung trıtt auf, wenn eine Sequentielle Datei ge- 
lesen werden soll, dıe zwar zum Schreiben eröffnet wur- 
de (DOPEN#n,'DATEINAME',DO,U8,W), jedoch keine 
DCLOSE #n-Anweisung vor Beendigung des Programm- 
ablaufs erhielt. In der Regel gehen die abgespeicherten 
Daten dadurch verloren. Daher sollte unbedingt vor 
Beendigung eines Programmablaufs eine DCLOSE #- 
Anweisung für alle eröffneten Dateien gegeben werden. 


FILE NOT OPEN (61) »Dateı nicht geöffnet«: Es wurde ver- 
sucht, mit PRINT#, INPUT#, GET# oder RECORD# auf 
eine Dateı zuzugreifen, die nicht mit DOPEN# eröffnet 
worden war. Dieser Fehler trıtt auch auf, wenn eine Da- 
tenleitung zum Drucker nıcht geöffnet wurde und trotz- 
dem ein Ausdruck erfolgen soll. 


FILE NOT FOUND (62) »Datei nicht gefunden«: Ein nicht 
existierender Dateiname soll geladen oder gelesen wer- 
den. Mit Hilfe des DIRECTORY-Befehls kann man sıch je- 
derzeit das Inhaltsverzeichnis einer Diskette auf dem 
Bildschirm auflisten lassen. 


FILE EXISTS (63) »Dateı existiert« Eine Dateı soll unter 
einem bereits vorhandenen Namen abgespeichert wer- 
den. Dies läßt das Diskettenbetriebssystem nicht zu. Will 
man statt dessen lediglich eine alte Programmversion 
durch eine neue mit gleichem Namen überschreiı- 
ben, muß vor den Dateinamen ein @-Zeichen gesetzt 
werden (bei niedergedrückter ASCIVDIN-Taste das 
&-Zeichen): DSAVE "@DATEINAME' oder DSAVE 
"SDATEINAME'. 


FILE TYPE MISMATCH (64) »Dateitypdurcheinander«: Es 
wurde versucht, mıt Anweisungen für eine Relative Datei 
auf eine Sequentielle Datei zuzugreifen oder umgekehrt. 
Die betreffenden Anweisungen müssen überprüft wer- 


den. Mit Hilfe des DIRECTORY-Befehls, der das Inhalts- 
verzeichnis einer Diskette auflistet, kann man auch den 
Dateityp feststellen: BASIC-Programme weisen hinter 
dem Dateinamen das Kürzel PRG (Programm), Relative 
Dateien das Kürzel (REL) und Sequentielle Dateien das 
(SEQ) auf. 


DIRECTORY ERROR (71) »Inhaltsverzeichnisfehler«: Die- 
se Fehlermeldung ist sehr schwerwiegend, denn sie hat 
meist zur Folge, daß eine Diskette neu initialisiert bezie- 
hungsweise formatiert werden muß, wodurch sämtliche 
gespeicherten Daten verloren gehen. Um diesen Fehler 
zu verstehen, muß man etwas näher auf die technischen 
Details des Diskettenbetriebssystems eingehen: Beim 
Formatieren einer Diskette (mit dem HEADER-Befehl) 
wird auf jede formatierte Spur die zwei Zeichen lange 
Identifikationsmarkierung geschrieben, die dem Disket- 
tennamen im HEADER-Befehl beigefügt ist. Beim Einle- 
gen einer Diskette ins Laufkwerk wird diese Identifika- 
tionsmarke ım Speicher des Diskettenbetriebssystems 
abgelegt. Wechselt man nun die Diskette, kann es auf- 
grund der leider nicht ausgereiften Technik dazu kom- 
men, daß das Betriebssystem die Identifikationsmarke 
der neuen Diskette als »nicht richtig« interpretiert. Jedoch 
trıtt dieser Fehler erst im direkten Betrieb auf, also wenn 
Daten gesichert oder geladen werden sollen. Hierdurch 
werden wichtige, betriebsbedingte Codes im Inhaltsver- 
zeichnis der Diskette beschädigt oder nicht korrekt gele- 
sen, so daß beı jedem erneuten Versuch, mit der Disket- 
te zu arbeiten ein DIRECTORY ERROR ausgegeben wird. 
Die beste Vorsichtsmaßnahme gegen diesen höchst un- 
angenehmen Vorfall ist, jeder Diskette eine eigene, sonst 
nicht mehr verwendete Identifikationsmarke zu geben. 


Fehler bei der Druckeransteuerung 


Für den Betrieb mit dem Drucker gibt es keine eigene 
Fehleranzeige wıe im Diskettenbetrieb. In der Regel sind 
Schwierigkeiten bei der Druckeransteuerung auch we- 
sentlich harmloser als Diskettenprobleme. Meist handelt 
es sich hier nur um einfache technische Mängel, die 
durch die Wahl des richtigen Druckers und Interfaces 
von vornherein vermieden werden können. Neben dem 
einfachen FILE NOT OPEN ERROR (Druckanweisung 
wurde gegeben ohne zuvor eine Datenleitung zu öffnen) 
treten hauptsächlich folgende Probleme auf: 


Zum ersten Punkt: Die möglichen Ursachen für »Funkstil- 
le« können falsch verbundene Kabel, ein falsches (com- 
modoreuntaugliches) Interface oder nur die falsche Reı- 
henfolge des Einschaltens der Geräte seın (sıehe Erläute- 
rung zum Begınn dieser Lektion). Für den rıchtigen Ka- 
belanschluß werfen Sıe am besten eınen Blıck ın die Be- 
dienungsanleitung des Druckers oder Interfaces. Bei der 
Wahl des Interfaces sollte darauf geachtet werden, daß 
dieses ausdrücklich für den Commodore-Betrieb geeig- 
net ist. Schwierigkeiten können aber auch dann entste- 
hen, wenn ein Interface zwar für den Commodore 64, 
nicht aber speziell für den Commodore 128 eingerichtet 
ıst. In diesem Fall ıst ein korrekter Ausdruck ım DIN- 
Modus nıcht gewährleistet. 

Wenn beim Ausdruck andere Zeichen erscheinen als beı 
der PRINT-Anweisung für den Bildschirm, kann auch 
dies ein Interface-Problem sein. In Lektion 11 wurde dar- 
gelegt, welche verschiedenen Sekundäradressen beı 
der OPEN-Anweisung angegeben werden müssen, um 
bestimmte Druckmodi auszuwählen. Der zweite Grund 
für unsinnige ausgedruckte Zeichen kann ein falscher 
Drucker seın, das heißt der Drucker ist nıcht ın der Lage, 
die ASCII-Codes, die vom Computer gesendet und vom 
Interface umgewandelt werden, in korrekter Weise aus- 
zudrucken. Dieser Fehler dürfte nur selten auftreten, da 
die ASCII-Codes bıs 127 international genormt sınd. 
Erfolgt ein Ausdruck ın einem nıcht gewünschten Format 
(zum Beispiel werden 60 Zeichen pro Zeile gewünscht, Je- 
doch 80 Zeichen ausgedruckt), so kann dies nur durch 
Programmierung von sogenannten Fluchtsequenzen ge- 
ändert werden. Näheres hierzu findet sıch ın Lektion 17 
des zweiten Buchteils. 

Eine fehlende Zeilenschaltung trıtt ein, wenn einer der 
sogenannten DIP-Schalter am Drucker nıcht auf automatı- 
sche Zeilenschaltung am Ende einer Druckanweiısung 
eingestellt ist. Diese Schalterstellungen können manuell 


verändert werden. Oft sind dıese DIP-Schalter jedoch 
schwer zugänglich (bei einigen Druckern muß das ge- 
samte Gehäuse abmontiert werden), oder aber die nicht- 
automatische Zeilenschaltung wird beı anderen Aus- 
drucken ausdrücklich erwünscht. In diesem Fall kann 
auch ohne Umstellung eines DIP-Schalters ein Zeilenvor- 
schub erreicht werden, indem bei der OPEN-Anweisung 
eine Datenleitung oberhalb des Wertes 127 eröffnet wird. 
So bewirkt OPEN 200 4,2 beim Ausdruck einen Zeilenvor- 
schub nach einer PRINT-Anweisung, OPEN 1,4,2 jedoch 
nicht. 

Nachdem Sıe nun auch die Ursachen für mögliche Fehler 
und Schwierigkeiten ım Datenverwaltungsprogramm 
(und natürlich ın allen sonstigen selbsterstellten Program- 
men) erkannt und sicher behoben haben, steht kein Hiın- 
dernis mehr ım Wege, dıe Endfassung des Listings zu er- 
stellen und abzuspeichern. 

Da keine Zeilen mehr hinzugefügt werden, kann das Pro- 
gramm nun mit Hılfe des RENUMBER-Befehls umnume- 
riert und dadurch in eine geordnete Folge von Pro- 
grammzeilennummern gebracht werden. Hierzu geben 
Sie ein: 


RENUMBER [RETURN] 


Der Computer numeriert jetzt sämtliche Zeilen in Zehner- 
schritten um, was bei dem Umfang des Programms etwa 
eine halbe Minute dauert. Während dieser Zeit darf das 
Gerät natürlich nıcht ausgeschaltet werden. Sobald die 
READY-Meldung erscheint, können Sie mit Hilfe des 
LIST-Befehls die neue Fassung des Listings auf dem Bild- 
schirm (oder über einen Drucker) ausgeben lassen. In je- 
dem Fall sollten Sıe das Programm durch DSAVE auf Dis- 
kette absichern. Auf der Begleitdiskette zu diesem Buch 
ıst das Datenverwaltungsprogramm unter dem Namen 
»ENDFASSUNG« bereits umnumeriert. 

Wenn Sıe nun das Listing betrachten und sich an den Hin- 
weis erinnern, der im Vorwort gegeben wurde und mit 
dem Sıe sıch vor Beginn des Kurses einmal das Pro- 
gramm auf den folgenden Seiten anschauen sollten, dann 
werden Sie sıcher feststellen, daß Ihnen nun die Befehle, 
Anweisungen und Funktionen keineswegs mehr fremd 
sınd. Sie haben BASIC gelernt — vielleicht noch nicht ın 
allen Einzelheiten und höchster Perfektion, jedoch in den 
wesentlichen Grundzügen. Mit den bisherigen Erfahrun- 
gen sınd Sıe ın der Lage, eigene Programmideen zu ent- 
wickeln und zu realisieren. Sie können zuvor jedoch auch 
noch die Lektionen 13 bis 24 ım zweiten Teil des Buches 
studieren, die von universellerer Art sind und fortge- 
schrittenerem Programmieren in BASIC dienen. 
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Einleitung 


Mit den BASIC-Befehlen, Anweisungen und Funktionen, 
die im Verlauf der Lektionen 1 bis 12 zur Programmie- 
rung des Datenverwaltungsprogramms vorgestellt wur- 
den, sınd die Leistungen des Commodore 128 noch nicht 
erschöpft. Viele Anwendungsmöglichkeiten, wie zum Bei- 
spiel das Erzeugen von Musik oder Zeichen in hoch- 
auflösenden Grafikbildschirmen, waren für die Erfassung 
von Daten nicht erforderlich. 

In diesem zweiten Teil des Buches werden — neben 
einem einführenden Kapitel über Verbesserungsmög- 
lichkeiten des Datenverwaltungsprogramms — alle noch 
verfügbaren Anwendungsbereiche des Commodore vor- 
gestellt. Die einzelnen Lektionen sind dabei wesentlich 
kürzer und flexibler gestaltet als die des ersten Buchteils, 
damit Sie sich als Anwender nicht ausschließlich mit der 
Problematik eines Datenverwaltungsprogramms ausein- 
andersetzen müssen. BASIC bietet schließlich Realisie- 
rungsmöglichkeiten für wesentlich mehr Programm- 
ıdeen. Da insbesondere die Lektionen 19 bis 22 eine 
komplette Zusammenstellung aller BASIC-Befehle, -An- 
weisungen und Funktionen mit ihren möglichen Syntax- 
strukturen enthalten, darf dieser zweite Teil als umfassen- 
des Nachschlagewerk bei der selbständigen BASIC-Pro- 
grammlilerung angesehen werden. 


Lektion 13 


Verbesserungen 


Genau wie die Komposition eines Musikstücks oder die 
Ausarbeitung eines Romanthemas läßt sıch auch eın 
BASIC-Programm ın seinen Details immer weiter verbes- 
sern und perfektionieren. Vielleicht werden Sie festge- 
stellt haben, daß einige Programmpunkte oder Bild- 
schirmdarstellungen nicht Ihrem persönlichen Ge- 
schmack entsprechen oder nicht exakt Ihren Anforderun- 
gen gerecht werden. In dieser Lektion werden Änregun- 
gen gegeben, wie sich die einzelnen Programmabläufe 
verändern und verbessern lassen. 

Bei allen Bezugnahmen auf Programmzeilennummern 
wird dabei die mit RENUMBER umnumerierte Endfas- 
sung des Datenverwaltungsprogramms (Seite 160ff.) als 
Grundlage genommen. 


Verbesserungen der Bildschirmgrafik 


In Lektion 5 wurden bereits einige Hinweise gegeben, 
wıe sıch dıe Darstellung von Text und Zahlen verbessern 
läßt, zum Beispiel durch die Programmierung verschie- 
dener Farben oder mit Hilfe der Invertierung von Zeı- 
chen. Daneben wurde für die Dateneingabe eine gra- 
fisch attraktive Bildschirmmaske erstellt. Dieses Prinzip 
läßt sıch weiter ausbauen. So Ist es denkbar, auch für die 
Menüs regelrechte Masken zu programmieren, anstatt le- 
diglich einen Trennbalken zwischen Überschrift und Aus- 
wahlpunkten erscheinen zu lassen. 

Willman das gesamte Auswahlmenü ın einen geschlosse- 
nen Rahmen fassen, müssen den PRINT-Anweisungen die 
CHR$-Funktionen zum Invertieren und, wenn gewünscht, 
für Farbveränderungen vorangestellt werden. Eın Beı- 
spiel: 


";chrsc18 


Hierdurch erscheint in der ersten und letzten Spalte des 
Bildschirms eın invertiertes Leerzeichen, also ein voller 
grafischer Punkt. Diese Eingabe müßte für alle übrigen 
PRINT-Anweisungen bis Zeile 200 wiederholt werden. 
Aus diesem Grund ist es sinnvoll, für die Invertierungs- 
funktion eine Variable zu definieren: 


PS i$=-chrst1B3+” "+chrSl HE) O2... 
60 print i$;” HAUPTMENÜ 
EHE H 99 . iS EEE EEERHERHIHE ie EE Hi Eure: 


lesen 


ändern 
ausdrucken 


sortieren 
selektieren 


Programm bsenden 


ıngaDde: 


In dıeser Weise kann man fortfahren, sämtliche PRINT- 
Anweisungen für Menüs zu ergänzen, so daß die Texte 
für die Auswahlpunkte in einem geschlossenen Rahmen 
erscheinen. 


Verbesserungen ım Hauptmenü 


Mit den bisherigen Auswahlpunkten lassen sich bereits 
umfassende Programmfunktionen aufrufen. Trotzdem gibt 
es auch hıer eine Verbesserungsmöglichkeit, denn will 
man einen eingegebenen Datensatz vollständig löschen, 
kann dies im Augenblick nur über den Auswahlpunkt »3. 
Daten ändern« erfolgen, indem bei der Änderung ledig- 
lich Leereingaben (Drücken der [RETURN]-Taste) ge- 
macht werden. 


Es ıst Jedoch ohne weiteres möglıch, einen bestimmten 
Datensatz aus einer Datei selbständig löschen zu lassen. 
Hierzu müssen folgende Programmierschritte unternom- 
men werden: 


Verbesserungen beı der Dateneingabe 


Aufgrund der Datensicherungsprobleme beı Neueröff- 
nung einer Datei ıst es zweckmäßig, mit Hilfe einer FOR- 
..NEXT-Anweisung zunächst drei inhaltlose Datensätze ın 
die Datei schreiben zu lassen. Dabeı werden die Daten- 
satznummern nicht gezählt, so daß mit der Eingabe der 
ersten tatsächlichen Datensätze die Leereintragungen 
überschrieben werden. Durch diese Operation wird er- 
reicht, daß dıe zum ordnungsgemäßen Diskettenbetrieb 
unbedingt notwendigen 512 Byte einer Relatıven Dateı 
auch bei der Eingabe nur eines Datensatzes gewähr- 
leistet sind. Zur Realisierung dieser Programmergänzung 
kann exakt dıe gleiche Routine benutzt werden wie die 
zuvor beschriebene Routine zum Löschen eines Daten- 
satzes. 


Verbesserungen ım Ausdruck 


Bisher werden mit der Druckeransteuerung stets dıe Da- 
tensätze komplett mit allen Datenfeldbezeichnungen und 
Einträgen ausgedruckt. Es ıst aber auch denkbar, alter- 
natıv mehrere Ausdruckroutinen anzubieten, zum Beı- 


spiel Ausdruck der Datensatznummer und des Vor- und 
Nachnamens (für eine alphabetisch sortierte Liste) oder 
Ausdruck der Anschrift für Aufkleber. 

Die hierfür notwendigen Programmergänzungen sind 
kaum aufwendig, jedoch komfortabel in ihrer Anwen- 
dung. Der Datenlesevorgang bleibt dabei von allen 
Druckerroutinen unberührt, das heißt von der Diskette 
werden zwar alle Datenfelder eines Datensatzes gelesen, 
jedoch nur einzelne Eintragungen ausgedruckt. Bei der 
Programmierung von mehreren Ausdruckoptionen ist fol- 
gendermaßen vorzugehen: 


Das Beispiel einer Ausdruckoption, bei der nur Name 
und Anschrift auf dem Papier erscheinen, findet sich in 
folgendem Listing: 


4000 rem anschriften ausdrucken. 


4030 print vn$;” ”:nnS$ 
40930 print NEED 
4050 print st$ 
40589 BEIRE: | 
“070 print p2;” "oo 
HOBSQO printne 

4090 close H4 

4100 return. 
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Weitere Möglichkeiten zur Verbesserung des Ausdrucks 
sınd ın Lektion 17, »Fluchtsequenzen zur Ausdruckopti- 
mierung« aufgeführt. 


Lektion 14 


Hochauflösende Grafik 


Alle bisherigen Bildschirmdarstellungen fanden im nor- 
malen Textmodus mit 40 oder 80 Zeichen ın 25 Zeilen 
statt. Das ergibt eine Zeichenzahl von 1000 beziehungs- 
weise 2000 Bildpunkten. Darüber hinaus verfügt der 
Commodore 128 über zwei weitere Modi: 


Diese Grafikbetriebsarten eignen sich zur Darstellung 
von beliebigen grafischen Formen (Häuser, Figuren ın 
Computerspielen oder Balkendiagramme, Übersichtssta- 
tıstıken in Anwenderprogrammen). Weder die hoch- 
auflösende noch die mittlere Grafikbetriebsart ıst beim 


Einschalten automatisch aktıviert Beide müssen durch die 
GRAPHIC-Anweisung (engl. »Grafik«) aufgerufen wer- 
den. GRAPHIC benötigt mindestens eine Angabe: 


0 Textmodus 40 Zeichen/Zeile (normal- 
nach dem Einschalten aktıv) 
hochauflösende Grafik ohne Textfenster 
hochauflösende Grafik mit Textfenster 
mittlere Grafik ohne Textfenster 
mittlere Grafik mit Textfenster 
Textmodus 80 Zeichen/Zeile 


OD -— 


Durch die gemischten Darstellungsformen (Grafik und 
Textfenster) ıst es möglich, grafische Bilder durch Texte 
zu kommentieren oder zum Beispiel Punkteergebnisse 
bei Computerspielen anzuzeigen. Dabei ıst jeweils der 
obere Bildschirmbereich für Grafik und der untere Be- 
reich für Text reserviert. Eine Textdarstellung ım Grafik- 
bildschirm ist nicht möglıch. 

Voreingestellt sind bei gemischtem Betrieb sechs Text- 
zeilen. Diese Einstellung läßt sich durch erweiterte Änga- 
ben der GRAPHIC-Anweisung verändern. In jedem Fall 


muß jedoch vor der Angabe, ab welcher Zeile ein Text- 
fenster beginnen soll, festgelegt werden, ob das Grafik- 
fenster bei Aufruf gelöscht oder nicht gelöscht werden 
soll. Im ersten Fall wird die Zahl 1, im zweiten die Zahl 0 
eingegeben. Will man zum Beispiel hochauflösende Gra- 
fik mıt gelöschtem Bildschirm und einem Textfenster, das 
ın Zeile 20 beginnt, lautet die korrekte Schreibweise der 
GRAPHIC-Anweisung: 


GRAPHIC 2,1,20 


Bei dem Betrieb mit Textfenster gehen dem Grafikbild- 
schirm Bildpunkte verloren, und zwar 320 mal 8 bezie- 
hungsweise 160 mal 8 pro Textzeile. In diesem Beispiel 
stehen also fünf Textzeilen und 320 mal 160 Grafikpunkte 
zur Verfügung. 

Für einen einwandfreien Grafikbetrieb muß vor der Pro- 
grammiıerung der GRAPHIC-Anweisung mindestens eine 
COLOR-Anweisung gegeben werden (vergleiche Farb- 
codes ın Tabelle Seite 53, Lektion 5). Mit ihr wird die Vor- 
dergrundfarbe des Grafikbildschirms, auf Wunsch auch 
die Farben des Randes, Textfensters, der Textzeichen 
und die Zeichenfarben für die Grafik bestimmt. Beispiel: 


19 EBlor 0,5 

ee) color 1.8 
sosslare sinn 

20 enlor 5,2 

50 grapnhie?,ı1,eD: 
60 print”Test” 


Zeile 10 definiert die Farbe für den Hintergrund des Gra- 
fik- und Textbildschirms (in dıesem Fall violett). Zeile 20 
bestimmt die Zeichenfarbe für dıe Grafik (gelb), Zeile 30 
die Randfarbe (hellgrau), und mit Zeile 40 wird die Text- 
zeichenfarbe (weiß) gewählt. Nach dem Starten des 
Programms erscheint der Text aus Zeile 60 ım unteren 
Bildschirmbereich, also im Textfenster dieser Grafikbe- 
triebsart. 

Wenn Sıe nun LIST [RETURN] geben, rollen die Pro- 
grammzeilen ausschließlich innerhalb des Textfensters 
ab und nicht wıe gewohnt über den gesamten Bildschirm. 
Um wieder in den normalen Modus zu gelangen, muß 
GRAPHIC 0 programmiert werden. Die Funktionstaste 
[fl] des Commodore ist bereits mit dieser Anweisung be- 
legt. Sie müssen nur [fl] drücken und die Zahl 0 einge- 
ben. Nach [RETURN] befinden Sıe sıch wieder ım norma- 
len Textmodus. 

Wiıe oben bereits erwähnt, stehen nach GRAPHIC 2,1,20 
noch 320 mal 160 Bildpunkte für grafische Darstellungen 
zur Verfügung. Da die »Null« jeweils mitzählt, können Ko- 
ordinationspunkte von 0,0 bis 319,159 angegeben werden 
(bei hochauflösender Grafik ohne Textfenster von 0,0 bis 
319,199). Wie aber werden grafische Darstellungen pro- 
grammiert? — Dazu bietet BASIC eine Reihe von Anweı- 
sungen: DRAW (engl. »ziehend, BOX (engl. »Kasten«), 
CIRCLE (engl. »Kreis«, »Kreis ziehen‘ und PAINT (engl. 
»malen«). Anhand der folgenden Beispiele werden die 
Funktionen der einzelnen Anweisungen näher erläutert. 
Will man eine einfache Linie quer über den Grafikbild- 
schirm, also vom Koordinationspunkt 0,0 zu Punkt 319,159 
zeichnen, muß mit Hilfe der DRAW-Anweisung die Start- 
position des nicht sichtbaren Grafikcursors bestimmt und 
dann der gewünschte Endpunkt angegeben werden. Ins- 
gesamt benötigt die DRAW-Anweisung folgende Anga- 
ben: 


Die Programmergänzung zum Zeichnen einer Linie von 
0,0 bis 319,159 lautet demnach: 


70 draw 1,0,0 to 319,159 


Der besondere Vorteil der DRAW-Anweisung besteht 
darin, daß man mehrere Liniendefinitionen hintereinan- 
der geben kann. Dabei müssen jeweils dıe Hilfsanweı- 
sung TO und die neuen Punktkoordinaten angegeben 
werden. Mit der folgenden Ergänzung wird der diagona- 
len Linie ein Dreieck zugesellt. 


80 draw 1,160,10 to 309,149 to 10,149 to 
160,10 


Mit der DRAW-Anweisung lassen sich also Linien zu be- 
lıebigen vieleckigen Flächen zusammensetzen. Will man 
jedoch ein Rechteck zeichnen, bietet sıch hierfür eher 
die BOX-Anweisung an. Sie erlaubt neben dem einfachen 
Linienzeichnen noch dıe Angabe, ob das Rechteck um 
seinen Mittelpunkt gedreht werden soll (also schräg 
steht) und ob die ınnere Fläche ausgemalt werden soll. 
Die korrekte Schreibweise der BOX-Anweisung ist: 


BOX Farbquelle,x/y-Koordinate links oben, 
x/y-Koordinate rechts unten,Winkel,Ausmalen 


Wird für »Winkel« O0 eingesetzt, erscheint das Rechteck 
parallel zum Bildschirmrand. Wird das Ausmalen der In- 
nenfläche gewünscht, muß eine l angegeben werden, 
sonst O0 (die Parameter für Winkel und Ausmalen können 
auch weggelassen werden, wenn beide 0 sınd). Um die 
Wirkung der BOX-Anweisung zu demonstrieren, können 
folgende Zeilen eingegeben werden: 


90 box 1,20,20,80,80 
100 box 1,240,20,300,80,0,1 


Bevor wir dıe Winkeldrehung ausprobieren, sollte ein 
Teil des Programms gelöscht werden, und zwar die Zel- 
len 70 bıs 100. Hierzu ıst es nıcht notwendig, die Zeilen- 
nummern einzeln einzugeben und durch [RETURN] zu 
löschen. Der Befehl DELETE (engl. »löschen« arbeitet ra- 


tioneller. Seine Schreibweise ist analog der der LIST- 
oder PRINT-Befehle. In diesem Fall also DELETE 70-100 
[RETURN]. 

Wie bei allen BASIC-Anweisungen können auch bei BOX 
anstelle von numerischen Werten Variablen eingesetzt 
werden. Mit Hilfe der folgenden FOR...NEXT-Anweisung 
wird eine BOX-Anweisung zehnmal wiederholt, wobei 
sich die Winkelangabe durch eine Variable jeweils um 
den Wert 20 erhöht. Dadurch erscheinen zehn Recht- 
ecke, jeweils um 20 Grad um ihren gemeinsamen Mittel- 
punkt weıtergedreht. 


70 for x=0 to 200 step 28. 
BO box 1,100, 30, ee20, 130, x, ‚O 
90 next ® | 


Wıe zu sehen ist, entsteht durch diese drei Zeilen ein 
hübsches grafisches Gebilde. Das Ganze läßt sich noch 
weiter manipulieren, indem etwa dem Wert 100 in der 
BOX-Anweisung der Wert von x hinzugerechnet wird (al- 
so box 1,100+x,30...). Dadurch verschiebt sich das Recht- 
eck beı jedem Durchlauf der FOR... NEXT-Anweisung um 
zwanzig Bildschirmpunkte. 

so wie BOX eine Spezialanweisung zum Zeichnen eines 
Rechtecks darstellt, bietet BASIC mit CIRCLE auch zum 
Zeichnen eines Kreises, einer Ellipse oder eines beliebi- 
gen regelmäßigen Polygons eine Spezialanweisung. Die 
CIRCLE-Anweisung benötigt folgende Angaben: 


Die einfachste Anwendung der CIRCLE-Anweisung Ist 
das Zeichnen eines Kreises. Löschen Sıe die Zeilen 70 bis 
90 und geben Sıe eın: 


70 circle 1,1560,80,560 


Nach RUN [RETURN] erscheint an Bildschirmposition 
160,80 ein Kreis mit einem Radius von 60 (Anzahl der Bild- 
schirmpunkte). Um eine Ellipse mit dem gleichen Mittel- 
punkt zu zeichnen, ist folgende Eingabe erforderlich: 


50 eirels 1,160, 20,50, % 


Um aus dem Kreis nun ein Achteck entstehen zu lassen, 
muß dıe CIRCLE-Anweisung erweitert werden. Die vor- 
eingestellten Werte können dabei bis auf dıe Winkelan- 
gabe für die Kreissegmente übernommen werden. Für 
diese Winkelangabe gibt es eine einfache Regel: Wert = 
360 geteilt durch die gewünschte Eckenanzahl. Bei einem 
Achteck also 360:8=49. 


70 eireie 1,150,50,60,560,0, 3650,0,360/8 


Es gibt auch die Möglichkeit, alle voreingestellten Werte 
durch die Eingabe eines Kommas zu übergehen. In die- 
sem Beispiel also: 


?0 eirele 1,3650,80, 60,68, ;+:3600/8 


Die PAINT-Anweisung schließlich dient dazu, eine belie- 
bige Figur (mit DRAW oder CIRCLE gezeichnet) oder 
aber die Umgebung einer Figur mit der Zeichenfarbe 
oder Hintergrundfarbe auszufüllen. Positioniert man den 
grafischen Cursor der PAINT-Anweisung ın den Mittel- 
punkt des zuvor programmıerten Achtecks, so wird die 
Fläche ausgemalt, die sowohl ım Innern des Achtecks 
als auch der Ellipse liegt. Folgende Ergänzung Ist not- 
wendig: 


90 paint 1,160,80 


Alle dıese Grafikanweisungen fordern zu experimentel- 
lem Spielen heraus. Meist genügt eine FOR...NEXT- 
Anweisung, deren Varlablenwerte ın die Grafikanweı- 
sungen eingebracht werden, um attraktive grafische Bil- 
der hervorzubringen. Die Varlationsmöglichkeiten sınd 
nahezu unbegrenzt. 

Alle Anweisungen, die hier im hochauflösenden Grafik- 
modus gegeben wurden, sind auch beı mittlerer Grafik 
möglıch. Hier muß lediglich beachtet werden, daß die 
x/y-Koordinaten den vorgegebenen Rahmen von 0,0 bis 
159,199 nıcht überschreiten. 


Lektion 15 


Sprites 


Unter Sprites (engl. »Geister«, »Kobolde«, ausgesprochen 
»Bpreit«) versteht man eine Grafikbetriebsart, die un- 
abhängig von den Bildschirmdarstellungen durch 
DRAW, BOX, CIRCLE und so weiter abläuft. Sprites sind 
Figuren ın einem Punktraster von 24 Spalten und 21 Zei- 
len (hochauflösende Grafik) oder 12 Spalten und 21 Zei- 
len (mittlere Grafik). Die Figuren können durch den An- 
wender frei gestaltet werden; ihr besonderer Vorteil 
lıegt darın, daß sıe sıch frei über den Bildschirm bewe- 
gen lassen, ohne andere grafische Darstellungen zu 
löschen. Insgesamt erlaubt der Commodore 128 die 
gleichzeitige Darstellung von acht Sprites ın bis zu sech- 
zehn Farben. Die kreativen grafischen Gestaltungs- 
möglıchkeiten werden durch Sprites also erheblich ver- 
mehrt. 

Zur Anwendung der Spritegrafik sind eine Reihe von 
Vorbereitungen notwendig. Zunächst muß ein Sprite ent- 
worfen werden. Hierzu bietet das Commodore-BASIC 
den Befehl SPRDEF (Spritedefinition). Dieser Befehl wird 
ohne weitere Angabe im Direktmodus durch SPRDEF 
[RETURN] programmiert. Das Betriebssystem schaltet 
dann um in den Sprite-Editor, der aus einem Raster von 
24 mal 21 Bildschirmpunkten besteht (siehe Seite 180). 

In der untersten Bildschirmzeile muß hinter dem Text 
»>SPRITE NUMMER? eine Zahl von 1 bis 8 eingegeben 
werden. Danach kann der Entwurf einer Figur beginnen. 
In der oberen linken Ecke befindet sich ein Pluszeichen 
(+), das mit Hilfe der grauen Cursortasten im Raster be- 
wegt werden kann. Als erster Schritt sollte mit 
[SHIFT/-{CLR HOME] das gesamte Raster gelöscht wer- 
den. 

Um einen Spritepunkt mit der Zeichenfarbe zu setzen, 
wird dıe Zahlentaste [2] gedrückt. An der Stelle des Plus- 
zeichens entsteht dann ein schwarzer Punkt, während die 
übrige Rasterfläche dunkelgrau bleibt. 

Um einen Spritepunkt mit der Hintergrundfarbe zu setzen 
beziehungsweise einen gesetzten Punkt zu löschen, wird 
die Zahlentaste [1] gedrückt. 

Da zu Beginn die farbliche Unterscheidung zwischen 
Dunkelgrau und Schwarz kaum möglich ist, sollte eine an- 


SPRITE NUMMER? 1 


dere Spritefarbe gewählt werden, zum Beispiel Weiß. 


Dazu 


[CONTROLFH2] 


Tastenkombination 
Sogleich färben sich die gesetzten Punkte 


weıß. Gleichzeitig erscheinen neben dem Entwurfsraster 


wird die 


gedrückt. 


die gleichen gesetzten Punkte in der Originalgröße des 


Sprite, wie er später bei der grafischen Anwendung auf 


dem Bildschirm erscheinen wird. 


Durch Cursorbewegungen und Drücken von [2] kann 
man zum Beispiel folgende Figur entwerfen: 


1 
e: 
Mr 
Lil 
= 
2 
= 
= 
al 
u 
zu | 
r 
A. 
un 


Neben der normalen Darstellung bietet der Commodore 
noch die Möglichkeit, ein Sprite um das Doppelte seiner 
Breite (Länge) horizontal (vertikal) zu dehnen. Um die 
Wirkung dieser Vergrößerungen zu testen, können je- 
derzeit während des Entwerfens die Tasten [X] für hori- 
zontale Dehnung und [Y] für vertikale Dehnung gedrückt 
werden. 

Der oben abgebildete Entwurf kann nun in einem BASIC- 
Programm aufgerufen und dargestellt werden. Dazu 
müssen die Daten für dıe Figur in einem bestimmten Be- 
reich des Arbeitsspeichers gesichert werden. Um dies zu 
erreichen, wird die Tastenkombination [SHIFT-H{ RETURN] 
gedrückt. Nach dieser Aktion verschwindet das original- 
große Sprite von der rechten Bildschirmseite. Auch die 
Sprite-Nummer wird gelöscht. Nun kann ein neues Sprite 
entworfen oder der Editor verlassen werden. Hierbei ist 
folgendes zu beachten: 


Wenn ein Sprite-Entwurf durch [SHIFT-{RETURN] im Ar- 
beitsspeicher des Computers gesichert wurde, ist er den- 
noch nach dem Ausschalten des Gerätes verloren. Um 
die Daten auch für späteres Arbeiten mit dem Computer 
verfügbar zu halten, können sie mit Hilfe des Befehls 
BSAVE (engl. Abkürzung für »Binärsicherung«) auf Dis- 
kette ın Binärform abgespeichert werden. Binärform be- 
deutet: keine ASCII-Codes, sondern einzelne Datenbit, 
dıe durch den Entwurf entweder den Wert O für »Punkt 
nicht gesetzt« oder ] für »Punkt gesetzt« angenommen ha- 
ben. In diesem Zusammenhang spricht man auch von ei- 
nem »Bitmuster« der Figuren. Die korrekte Schreibweise 
zur Sicherung von Sprite-Entwürfen ist: 


BSAVE "Dateiname!" ,BO,P3584 TO P4095 


Zum Wiıedereinladen der Sprite-Entwürfe muß lediglich 
der Befehl BLOAD ''Dateiname’ [RETURN] im Direktmo- 
dus eingegeben werden. Als Dateiname kann auch zur 
Abspeicherung von Binärdaten eine beliebige Zeichen- 
folge verwendet werden, zum Beispiel ''SPRITE 1", 
"SPRILE 2... 


Um ein Sprite auf dem Bildschirm darzustellen, muß ent- 
weder der hochauflösende oder der mittlere Grafikbe- 
trieb aktiviert werden. Zusammen mit den COLOR- 
Anweisungen zur Definition der Hintergrund-, Vor- 
dergrund- und Randfarbe könnten die vorbereitenden 
Programmzeilen folgendermaßen aussehen: 


Als weiteres muß mit der Anweisung SPRITE dıe entwor- 
fene Figur aufgerufen und die gewünschte Darstellungs- 
form gewählt werden. Die SPRITE-Anweisung benötigt 
folgende Angaben: 


Um das zuvor entworfene Sprite darzustellen, muß also 
folgende Programmzeile ergänzt werden: 


60 sprite 1,1,8,0,0,0,0 


Nach RUN [RETURN] erscheint dıe Figur ın der rechten 
Bildschirmhälfte an der Stelle, wo sie auch während des 
Entwerfens ın Originalgröße abgebildet war. Um dem 
»Geschöpf« Leben einzuhauchen, wird eine spezielle An- 
weisung benötigt: MOVSPR (abgekürzt »Move Sprite«, 
engl. »bewege Sprite«). Die MOVSPR-Anweisung läßt sıch 
mit drei unterschiedlich wirkenden Angaben program- 
mieren: 


Mit der folgenden Listing-Ergänzung wird die entworfene 
Figur zunächst an Bildschirmkoordinate 160,100 positio- 
niert, um 50 Bildschirmpunkte nach links und nach unten 
bewegt und dann ım Winkel von 45 Grad mit einer mittle- 
ren Geschwindigkeit über den Bildschirm gefahren. Da 
der Computer die einzelnen Anweisungen extrem 
schnell abarbeitet, müssen mit Hilfe von SLEEP kurze 
Pausen eingefügt werden, damit die einzelnen Abläufe 
optisch nachvollziehbar sind. Zum Abschluß wird die 
Winkelangabe und Geschwindigkeit wieder auf Null ge- 
setzt (Zeile 130), weıl das Sprite sonst endlos über den 
Bildschirm fahren würde. Mit Hilfe der SPRITE- 
Anweisung In Zeile 140 verschwindet Sprite 1 vom Bild- 
schirm. 


140 sprite 1,0 


Um die Prioritätsangabe zu demonstrieren, muß irgend- 
ein Objekt auf den Bildschirm gebracht werden, mit dem 
das Sprite während seiner Bewegung in Berührung 
kommt. Hierzu genügt eine einfache BOX-Anweisung: 


565 Ba= 1,60,10,120,140,0,1 


Nach dem Programmstart ist deutlich zu sehen, daß sich 
das Sprite vor der ausgemalten Fläche bewegt. Wenn 
nun die SPRITE-Anweisung in Zeile 60 als vierte Angabe 


(also hinter der 8) eine 1 erhält, ist es genau umgekehrt, 
das heißt bei der Berührung von Sprite und Fläche ist das 
Sprite nicht mehr zu sehen, weil die Fläche Darstellungs- 
prıorität hat. 

Da Sprite-Grafik hauptsächlich in Computerspielen ein- 
gesetzt wird (zum Beispiel für den Kampf von Sprite- 
Monstern), bietet das Commodore-BASIC eine weitere 
Anweisung, mit der festgelegt werden kann, was gesche- 
hen soll, wenn sıch zwei Sprites oder Sprite und Gra- 
fikfläche berühren. Es handelt sich um die COLLISION- 
Anweisung (engl. »Zusammenstoß«). Mit ıhr lassen sich 
drei Kollisionsarten abhandeln: 


Neben der Angabe, welche Kollisionsart überprüft wer- 
den soll (1,2 oder 3) muß beı der COLLISION-Anweisung 
noch angegeben werden, zu welcher Programmzeile der 
Rechner verzweigen soll, wenn eine solche Kollision statt- 
findet. Die korrekte Schreibweise der COLLISION- 
Anweisung Ist somit: 


COLLISION Kollisionsart, Programmzeilennummer 


Da ım vorliegenden Programmbeispiel bereits eine grafi- 
sche Fläche zur Demonstration der Darstellungspriorität 
programmiert wurde, findet bei der Überlagerung von 
Sprite und Fläche eine Kollision der zweiten Art statt. So- 
mit kann folgende Zeile ergänzt werden: 


75 collision 2,105 


Nun wiırd also ım Fall einer Kollision zwischen Sprite und 
Bildschirmgrafik (die durch Zeile 70 stattfindet) zur Pro- 
grammzeile 105 verzweigt: 


105 print ”getroffen!” 


Nach RUN [RETURN] wird das Programm zunächst wie 
bisher ausgeführt, jedoch überspringt der Rechner auf- 
grund der Kollision die Zeilen 80 bıs 100, und ım Textfen- 
ster erscheint die Meldung »getroffen!«. In Computerspie- 
len läßt sıch die COLLISION-Anweisung für Verzwei- 
gungsbedingungen beı der Berührung zweier Sprites 


sinnvoll einsetzen, etwa wenn ein Sprite-Monster und 
eine ebenfalls als Sprite entworfene Waffe zusammentref- 
fen; oder bei der Berührung mit Bildschirmobjekten, 
wenn zum Beispiel mit DRAW- und BOX-Anweisungen 
ein Schloß gezeichnet wird und eine Sprite-Figur gegen 
das Schloßtor stößt. Die Möglichkeiten der Anwendung 
sınd zahllos und werden vornehmlich von der Phantasie 
des Programmierers bestimmt. 

Die Kollisionsart mit einem Lichtgriffel wird in diesem 
Buch nicht behandelt, weil zum Zeitpunkt der Ausarbei- 
tung kein entsprechendes Gerät für den Commodore 128 
angeboten wurde. Im Prinzip läuft eine solche »Kollision« 
folgendermaßen ab: Der Elektronenstrahl der Bildröhre 
läuft bei seinem periodischen Abtasten des Bildschirms 
unter dem Lichtgriffel hindurch. Dieser besitzt an seiner 
Spitze einen empfindlichen Photodetektor, der im Mo- 
ment des Zusammentreffens mit dem Elektronenstrahl ei- 
nen Lichtimpuls abgıbt. Dieser Lichtimpuls wird auf das 
Steuersystem des Elektronenstrahls zurückgekoppelt, so 
daß an der Stelle, der sich der Lichtgriffel befindet, kurz- 
zeitig ein heller Punkt entsteht. Auf diese Weise ist das 
Zeichnen auf dem Bildschirm möglich. Im Zusammen- 
hang mit der COLLISION-Anweisung ist jedoch weniger 
das Zeichnen von Bedeutung, sondern die Feststellung, 
ob eın Lichtgriffel einen bestimmten Bildschirmbereich 
(nämlich den Bereich, ın dem ein Sprite positioniert ist) 
berührt oder nicht. Dadurch lassen sich beliebige Pro- 
grammverzweigungen festlegen. So ist es denkbar, an- 
stelle von Tastatureingaben, Menüpunkte mit Hilfe eines 
Lichtgriffels anzuwählen. Allerdings müßten die entspre- 
chenden Auswahlpunkte in Sprite-Grafik gestaltet sein. 


Lektion 16 


Neben den verschiedenen Grafikbetriebsarten hat der 
Commodore 128 auch musikalisch etwas zu bieten. Eine 
kleine Kostprobe wırd bereits gegeben, wenn man die 
Tastenkombination [CONTROLHG] drückt oder den ent- 
sprechenden ASCII-Code (7) durch PRINT CHR$(7) akti- 
viert. Das dann erklingende Sıgnal kann zum Beispiel ın 
Anwenderprogramme eingebracht werden, um akustisch 
zu Eingaben aufzufordern oder auf Fehler hinzuweisen. 
Es ıst jedoch auch möglich, eigenständige Musik- 
programme zu schreiben oder die Tastatur als Klaviatur 
(Keyboard) für sımultanes Synthesizerspiel zu benutzen. 
Die Anweisungen, die BASIC hierfür bietet, lauten 
SOUND (engl. »Klang‘), ENVELOPE (engl. »einhüllen«, 
»Hüllkurve«), VOL (Abkürzung für VOLUME, engl. »Laut- 
stärke«), TEMPO (engl. »Geschwindigkeit«), PLAY (engl. 
»spielen“) und FILTER. Voraussetzung für die Musik- 
erzeugung Ist ein Lautsprecher ım Monitor beziehungs- 
weise Fernsehgerät. 

Insgesamt lassen sich drei Musikstimmen gleichzeitig ın 
unterschiedlichen oder identischen Klangfarben aktıvie- 
ren. Unter Klangfarbe versteht man dıe Charakteristik 
eines Tons; zum Beispiel klingt ein »C« auf einer Geige 
anders als auf einem Klavier. Da weiterhin eın Ton nıcht 
einfach »erklingt«, sondern eine bestimmte Phase zum 
Anschwellen und Ausklingen beansprucht, wird speziell 
in der elektronischen Musik das Klangbild eines Tons ın 
vier Phasen unterteilt: Anschlag, primäre Ausschwing- 
zeit, Dauerpegel, sekundäre Ausschwingzeit. 


Anschlag primäre ÄAusschwingzeit Dauerpegel sekundäre Ausschwingzeit 


Weiterhin werden die akustischen Wirkungen von 
Klängen ın dreı verschiedene Wellenformen unterteilt: 
Dreieckwelle, Sägezahnwelle und Rechteckwelle. Diese 
Bezeichnungen entstanden aufgrund des Schwingungs- 
musters, das die einzelnen Wellenformen beı Messung 
mit einem Oszillographen abgeben. Als vierte Klangbe- 
zeichnung existiert noch das Rauschen, das aus dem 
zufälligen Zusammenwirken vieler Frequenzen und 
Schwingungsmuster entsteht. Unter Hüllkurve schließlich 
versteht man die darstellerische Umhüllung der vier 
Klangphasen. 

Um mit der SOUND-Anweisung einen Ton zu erzeugen, 
sind folgende Angaben notwendig: 


Genau wie bei den meisten Grafikanweisungen müssen 
auch bei der SOUND-Anweisung nicht sämtliche Anga- 
ben gemacht werden, damit ein Ton erklingt. Die eın- 
fachste Art, einen Ton zu erzeugen, ist folgende Eingabe 
ım Direktmodus: 


SOUND 1,1000, 100 


Hier wird mit Stimme 1 dıe Frequenz 1000 für dıe Dauer 
von 100/60 Sekunden gespielt. Durch das Fehlen aller 
weiteren Ängaben sind die Werte für Klangform, MaxI- 
malfrequenz und so weiter gleich Null, so daß ein recht 
unförmiger Klang entsteht. Erweitert man nun diese 
SOUND-Anweisung um die Parameter für dıe Wellen- 
form (l = Sägezahn), so nimmt der Ton eine andere 
Klangfarbe an: 


SOUND 1,1000,100,0,0,0,1 


Entsprechende Veränderungen lassen sıch auch mit den 
übrigen Wellenformangaben erzielen. Wirklich befredı- 
gende Synthesizerklänge mit differenzierten Hüllkurven- 
steuerungen sind mit der SOUND-Anweisung jedoch 
nıcht möglich. Sıe ıst vornehmlich für dıe Programmie- 
rung von Toneffekten in Computerspielen gedacht. Zum 
Beispiel kann dıe Geräuschbedgleitung für ein »hinabfal- 
lendes Objekt« durch eine einfache FOR...NEXT- 
Anweisung programmiert werden: 


10 for x=2000 to 10000. 
e0 Sorr . ‚x 


Den umgekehrten Effekt, zum Beispiel für einen »Punkt- 
gewinn«, kann man mit folgenden Eingaben erreichen: 


10 For x-20000 to 1000 step-100 
20 SELAA. in ‚x A on Zu 


Um Noten oder freie musikalische Kompositionen spie- 
len zu können, müssen die Anweisungen PLAY, VOL, 
TEMPO und FILTER hinzugezogen werden. Mit der 
PLAY-Anweisung wird eine Zeichenkette angegeben, die 
den Tönen der Zwölftonleiter entspricht (C, Cıs, D, Dis 
und so weiter). Die einfachste Form zur Programmierung 
der PLAY-Anweisung ist: 


PLAY "CDEFGAB" 


Der Buchstabe »B« entspricht dabei dem Ton »H« (englı- 
sche Schreibweise der Noten). Mit dieser Anweisung 
werden also dıe sieben Ganztöne einer Tonleiter ge- 
spielt. PLAY bietet Jedoch noch wesentlich mehr Anga- 
bemöglichkeiten. Im einzelnen sınd dies: 


Die voreingestellten Instrumentenstimmen sind: 


0 Klavier 5 Gitarre 

l Akkordeon 6 Cembalo 

2  Zirkusorgel 7 Orgel 

3 Trommel 8 Trompete 
4 Flöte 9 Xylophon 


Soll also dıe zuvor programmierte Tonleiter als Flöten- 
stimme erklingen, ist folgende Eingabe notwendig: 


PLAY "TACDEFGAHB" 


Jede beliebige Klangmanipulation und Tondauerangabe 
ıst auf diese Weise möglich. Sıe können alle Angabemög- 
lichkeiten einmal durchtesten. Neben der einfachen 
PLAY-Anweisung, die Noten in allen möglichen Varlatio- 
nen spielt, erlaubt die TEMPO-Anweisung, die Spiel- 
ausführung der PLAY-Anweisung insgesamt zu beeinflus- 
sen. Erlaubt sind Angaben von 0 bıs 255. Voreingestellt 
ist der Wert 8. Beispiel: 


TEMPO 20:PLAY "TACDEFGAHB" 


Eine Lautstärkenveränderung erreicht man durch VOL. 
Es sınd Werte von 0 bis 15 erlaubt, wobei VOL 0 dem Ab- 
schalten des Tons entspricht und VOL 15 der größten 
Lautstärke. Beispiel: 


VOL 5:TEMPO 20:PLAY "T4CDEFGAHB":VOL O 


Ohne die Angabe VOL 0 ıst nach Ausführung der PLAY- 
Anweisung ein fortwährender hoher und leiser Ton zu 
hören. Dies wirkt sıch sehr störend aus, so daß es vorteil- 
haft ist, musikalische Programme stets mit VOL 0 abzu- 
schließen. 

Sollen nun einzelne oder alle Töne klanglıch gefiltert 
werden, muß durch 'X1’ ın der PLAY-Anweisung der 
Filter aktiviert und mit der FILTER-Anweisung die 
gewünschte Filterung vorbestimmt werden. Ein Fre- 
quenzfilter sondert aus einem vorgegebenen Klangspek- 
trum die hochfrequenten, nıederfrequenten oder mittle- 
ren Schwingungen heraus und bringt nur diese zur Äus- 
gabe. In diesem Zusammenhang spricht man von Hoch- 
ton-, Tiefton- und Bandpaßfilter. Eine vorgegebene 
Klangfarbe wird durch eine Filterung stark manipuliert, 
so daß besonders hier realistische Synthesizerfunktionen 
möglich sind. Die FILTER-Anweisung benötigt folgende 
Angaben: 


Soll der oben programmierte Flötenklang durch einen 
Hochtonfilter manipuliert werden, sınd folgende Einga- 
ben notwendig: 


FILTER 100,0,1,0,9:TEMPO 20:PLAY "X1T4CDEFGAHB": 
VOL O 


Die Angaben für den Filterfrequenzwert, der den Beginn 
des zu filternden Klangwellenbereichs festlegt, sowie für 
den Resonanzwert können natürlich verändert werden. 
Wiıl man schließlich dıe voreingestellten Instrumen- 
tenstimmen verändern, um weitere musikalische Varlatio- 
nen zu erreichen, muß hierfür die ENVELOPE-Anweı- 
sung eingesetzt werden. Sie benötigt folgende Angaben: 


Unter Rıngmodulation versteht man einen komplexen 
Vorgang zur Veränderung von Schwingungsformen, beı 
der durch eine sogenannte multiplikative Mischung aus 
zweı Eingangsfrequenzen eine Summenfrequenz und 
eine Differenzfrequenz zur Ausgabe gebracht werden. 
Zum Beispiel: An der Eingangsseite des Rıingmodulators 
werden die Frequenzen 1000 und 600 angegeben. Die 
multiplikative Mischung besteht nun darin, eine Summen- 
frequenz (1000 + 600 = 1600) und eine Differenzfrequenz 
(1000 - 600 = 400) zu bilden und zur Ausgabe zu bringen. 
Diese Ausgabefrequenzen lassen sich wiederum ringmo- 
dulieren, so daß sich das Klangergebnis immer weiter 
verzerrt und vom Originalton entfernt. Ein typisches Beı- 
spiel von Ringmodulation stellen »Micky Maus«-Stimmen 
oder »Schlümpfe«-Stimmen dar. 

Die Angabe für dıe Impulsbreite ın der SOUND- oder 
ENVELOPE-Anweisung ist nur bei der Wahl einer Recht- 
eckwelle erforderlich. Die Impulsbreite bestimmt das 
Schwingungsverhalten der Rechteckwelle. 


pe Impulsbreite < 


Voreingestellt ıst ein systembezogener Wert von 2048, 
der einem Impulsverhältnis von 50 zu 50 entspricht, so 
wie es auch die Abbildung zeigt. Durch Veränderung 
des Impulsverhältnisses (auch Tastverhältnis genannt) 
wird dıe Klangwirkung der Rechteckwelle verändert. 
Die Flötenstimme, mit der die hier aufgeführten Klangbei- 
spiele ausgeführt wurden, hat folgende Voreinstellung 
von seiten des Betriebssystems: 


Um diese Werte zu ändern, werden die neuen, ge- 
wünschten Angaben einfach in die ENVELOPE-Anweiı- 
sung eingebracht: 


ENVELOPE 4,5,5,5,3,1 


Dies ıst natürlich nur ein Beispiel. Die Veränderungen 
können beliebig ım Rahmen der möglichen Werte erfol- 
gen. Mit der ENVELOPE-Anweisung ist es also möglich, 
völlıg neue Klangfarben und eigene Instrumentenstim- 
men zu generleren. 


Lektion 17 


Fluchtsequenzen zur 
Ausdruckoptimierung 


In Lektion 11, »Druckeransteuerung« wurden bereits die 
Grundlagen zur Datenkommunikation mit einem Drucker 
erläutert. Neben dem einfachen Ausdruck von Texten 
oder Zahlen lassen sich von BASIC-Ebene aus noch weı- 
terführende und komfortablere Ausdruckfunktionen pro- 
grammieren. So Ist es zum Beispiel möglich, einen 
bestimmten Text durch Fettschrift vom übrigen Text her- 
vorzuheben, einzelne Wörter zu unterstreichen oder Ex- 
ponenten beziehungsweise Indexzahlen auszudrucken. 
Weiterhin lassen sıch mit Hilfe eines Nadel-Matrix- 
druckers grafische Zeichen darstellen, die im günstigsten 
Fall mit den Grafikzeichen identisch sind, über die der 
Computer verfügt. 

Im Zusammenhang mit der Programmierung spezieller 
Ausdruckarten spricht man von »Fluchtsequenzen«, weil 
die meisten Druckeransteuerungscodes mit dem ESCA- 
PE-Code (engl. »Flucht‘) beginnen. Dieser ESCAPE-Code 
nımmt ın der ASCII-Tabelle den Wert 27 ein; er wird ın 
der Regel durch die drei Buchstaben ESC abgekürzt. 
Der ESC-Code wird mit Hilfe der Funktion CHR$(27) pro- 
grammıert. 

Fluchtsequenzen sind nicht einheitlich, das heißt, für die 
Ansteuerung verschiedener Druckermodelle führen 
nicht alle Fluchtsequenzen zum gleichen Ergebnis. Aus 
diesem Grund werden ın dieser Lektion nur solche 
Fluchtsequenzen vorgestellt, dıe von den meisten 
Druckerherstellern wıe Centronics, Star, Epson, Mannes- 
mann, IBM, Brother und so weiter gleichermaßen über- 
nommen wurden, so daß man hier von einem Quası- 
Standard sprechen kann. 

Beı den Fluchtsequenzen unterscheidet man zwischen |- 
Byte-Codes (auch 1-Byte-Sequenzen), 2-Byte-Codes und 
3-Byte-Codes. Das bedeutet: Um eine bestimmte Aus- 
druckform zu erreichen, muß entweder ein einzelner 
Code oder zweı oder drei Codes zum Drucker übertra- 
gen werden. Daneben gibt es für einige Sonderfälle auch 
eine ganze Reihe von Codes beziehungsweise Daten, die 
an den Drucker gesandt werden, damit eine spezielle 
Ausdruckart durchgeführt wird. 


In der Regel werden Fluchtsequenzen ın einem BASIC- 
Programm mit Hilfe der CHR$-Funktion oder Kombinatio- 
nen von CHR$-Funktionen und Zeichen oder Zahlen ein- 
gegeben. Der Grund dafür ist die Tatsache, daß für viele 
Codes — zum Beispiel auch ESC — kein entsprechendes 
Zeichen auf der Tastatur zur Verfügung steht. 

Beim Commodore 128 muß vor der Übertragung einer 
Fluchtsequenz dıe OPEN-Anweisung gegeben werden; Je 
nach Interface zum Beispiel OPEN 1,4,0 oder OPEN 1,42 
und so weiter (vergleiche Tabelle Seite 139, Lektion 1]). 
Danach erfolgt mit PRINT#n, Fluchtsequenz die eigentlı- 
che Programmierung der gewünschten Ausdruckform. 
Beispiel: 


10 OPEN 1,4,0 
20 PRINT#1 ,CHRSC27);.”-”.CHRSC1) 


Mit dieser Fluchtsequenz (3-Byte-Code) werden alle 
nachfolgend ausgedruckten Zeichen automatisch unter- 
strichen. Anstelle des Trennungsstrichs kann auch des- 
sen ASCII-Code (45) programmiert werden, also 
CHR$(27);CHR$(45); CHR$(). Weiterhin ist es möglich, 
den numerischen Wert einer Fluchtsequenz (in diesem 
Fall 1) gleich dem Sequenzzeichen (in diesem Fall der 
Trennungsstrich) beizufügen, so daß der Unterstrei- 
chungsmodus auch durch die Anweisung CHR$(@27),'—1’' 
aktiviert würde. 

Eine allgemein übliche Schreibweise für Fluchtsequen- 
zen Ist ESC "Zeichen’';n. In diesem Fall also ESC "—"";n. 
In dieser Schreibweise werden auch die folgenden 
Fluchtsequenzen vorgestellt. 


Code Programmsyntax Funktion 


/ CHR$(7) Aktiviert den Summer des Druckers, der auch ertönt, 
wenn der Papiervorrat erschöpft ıst 


8 CHR$(8) Setzt den Druckkopf um eine Spalte zurück, 
so daß ein bereits gedrucktes Zeichen mit 
einem anderen Zeichen überdruckt werden kann 


9 CHR$(9) Bewegt den Druckkopf zum nächsten horizontalen 
Tabulatorstop 


10 
11 


12 


13 


14 


15 


18 


19 


17 


CHR$(10) 
CHR$(1]) 


CHRS$(12) 


CHRS$(13) 


CHR$(14) 


CHR$(15) 


CHR$(18) 


CHR$(9) 


CHRS(1N) 


Zeilenvorschub 


Bewegt den Druckkopf zum nächsten vertikalen 
Tabulatorstop 


Rückt das aktuell eingespannte Blatt bis zum 
Ende vor 


Bewegt den Druckkopf zurück zur ersten 
Druckspalte (ohne Zeilenvorschub) 


Druckt die Zeichen einer Zeile ın doppelter 
Breite 


Schaltet den Drucker um ın den Schmalschrift- 
modus (15 bıs 17 Zeichen pro Zoll gegenüber 
l0 oder 12 Zeichen normal) 


Schaltet den Drucker um ın den Normalschrift- 
modus 


Schaltet den Drucker auf»OFF«, gleich- 
bedeutend mit Pause (zum Beispiel um ein 
neues Blatt Papier einzulegen) 


Schaltet den Drucker auf»ON«, hebt also 
den Code 19 wieder auf 


Code 


ESC'' 0" 


ESC" 1" 


ESC' 2’ 


ESC"4’ 


EC" 
ES 
ESC'Y9” 


ESC"@' 


ESC'E" 
ESC’F 


Elsa 


ESC'H' 


Programmsyntax 


CHR$(27), 0” 


CHR$@27), 1’ 


CHR$(@27), 2’ 


CHR$(27),’4” 


CHR$(@27),''5"' 
CHR$@27),' 8’ 
CHR$@7),' 9’ 


CHRSE2T),"@'' 


CHR$@27D),'E” 
CHRS$S@D;F' 


CHR$@27,'G' 


CHR$(@7D,H' 


Funktion 


Schaltet von normal 6 Zeilen pro Zoll auf 8 Zeilen 
pro Zoll 


Schaltet den Zeilenabstand auf 7/72 Zoll 
(alle Zeichen werden ohne Zwischenraum 
untereinander gedruckt) 


schaltet zurück auf 6 Zeilen pro Zoll 


Aktiviert Kursivschrift, sofern 
im Drucker verfügbar 


Löscht Kursivschriftmodus 
Schaltet Papierendeerkennung aus 
Schaltet Papierendeerkennung ein 


Versetzt den Drucker ın den Zustand zurück, 
der beim Einschalten vorlag 


Alle Zeichen werden in Fettschrift gedruckt 
Löscht den Fettdruckmodus 


Alle Zeichen werden zweimal gedruckt 


Löscht den Doppeldruckmodus 


Code 
BSH “re 
Bee 


ESC'"3'";n 


ESG 


ESC''S";1 


ESC"S’;0 


ESG 7° 


ESC"W";] 


ESC"W'';O 


Programmsyntax 
CHR$(@27); -1" 
CHRSCT); -0” 


CHR$(@27);''3n’' 


CHR$(@27);'Cn’ 


CHR$@27),'S1' 


CHR$(27),''S0' 


CHR$@7;T" 


CHR$EN, "WI" 


CHR$@T, WO" 


Funktion 

Alle folgenden Zeichen werden unterstrichen 
Unterstreichungsmodus wird ausgeschaltet 
Schaltet den Drucker auf einen Zeilenab- 
stand n/216 Zoll. Für n kann ein Wert 
zwischen 1 und 255 angegeben werden 
Transportiert das Papier nach n gedruckten 
Zeilen zum Ende beziehungsweise zum 


Anfang der nächsten Seite 


Erlaubt Indexdarstellung (Tiefstellung von 
Zeichen) 


Erlaubt Exponentendarstellung (Hochstellung 
von Zeichen) 


Löscht Exponenten- und Indexdarstellung 
(2-Byte-Code) 


Aktiviert Ausdruck aller Zeichen ın doppelter 
Breite 


Löscht Doppeldruckmodus 


Darüber hinaus gibt es noch zahlreiche andere Fluchtse- 
quenzen; diese sınd Jedoch nicht einheitlich und lösen 
bei den einzelnen Druckern entweder gar keine oder un- 
terschiedliche Ausdruckformen aus. Einzelheiten hier- 
über finden sich im Falken-Buch »Drucker und Plotter. 
Text und Grafik für Ihren Computer«, F,Best.Nr.: 10/4315 
von K-H. Koch. Darüber hinaus finden sıch ım dritten Teil 
dieses Buches, der BASIC-Module und Programm- 
routinen für die tägliche Programmierpraxis enthält, zwei 
leistungsfähige Druckerprogramme, die zum einen die 
Benutzung anwenderspezifischer Zeichen und zum ande- 
ren einen bildschirmidentischen Grafikausdruck erlau- 
ben. 


Lektion 18 


PEER und POKE 

Im Verlauf der bisherigen Lektionen wurde häufiger von 
»Speicherbereichen« und »Speicherstellen« gesprochen, 
ın denen der Computer bestimmte Daten abspeichert, 
um den einwandfreien Ablauf eines BASIC-Programms 
zu gewährleisten. Mit diesen Speicherbereichen beschäf- 
tıgt sich nun die vorliegende Lektion. Es ıst nämlich eı- 
nerseits möglıch, den Inhalt von Speicherstellen zu lesen 
und andererseits selbstbestimmte Daten dort einzutra- 
gen, die den Rechner oder das Programm in unter- 
schiedlicher Weise manipulieren. Zum Teil lassen sich 
ganz erstaunliche Ergebnisse durch die Manipulation nur 
einer Speicherstelle erreichen. 

BASIC bietet hierfür die Anweisung POKE (engl. »stoße«, 
»einen Stoß versetzen« und die Funktion PEEK (engl. 
»spähen«d). Mit PEEK wird eine Speicherstelle gelesen, 
mit POKE kann ein neuer, selbstbestimmer Wert einge- 
tragen werden. Allerdings können nicht sämtliche Spei- 
cherbereiche des Computers manipuliert werden. Wie 
bereits am Anfang des Buches erwähnt, ist der Rechner 
In zwei grundsätzliche Speicherbereiche aufgeteilt: ROM 
(Read Only Memory), zu deutsch »Allein-Lese-Speicher« 
und RAM (Ramdom Access Memory), zu deutsch »wahl- 
freier Zugriffsspeicher«. Im Deutschen werden allgemein 
die Begriffe »Festwertspeicher« für ROM und »Arbeits- 
speicher« für RAM benutzt. Wie die Namen bereits sa- 
gen, sind ım ROM bestimmte Daten fest gespeichert, das 
heißt hier befinden sich die Mikrochips, die den gesam- 
ten Prozeß des Computerbetriebs steuern. Ebenso befin- 
den sıch hıer dıe Daten für den Zeichenvorrat und so wel- 
ter. Diese Speicherstellen können zwar eingesehen, je- 
doch nıcht manipuliert werden. 

Anders verhält es sich beim Arbeitsspeicher, dem RAM. 
Hıer werden alle Eingaben und Daten eingeschrieben, 
die während des Programmierens oder beim Ablauf eı- 
nes Programms entstehen. Nach dem Einschalten des 
Computers wird sofort ein bestimmter Teil des RAM vom 
ROM für betriebsinterne Funktionen reserviert, so daß 
nicht der volle RAM-Bereich von 128 KByte (entspricht 
131.072 Speicherstellen) zur Verfügung steht, sondern nur 
ein Teil davon, nämlich 122.365 Speicherstellen. Das ist 


zwar ein gewisser Verlust an frei verfügbarem Speicher- 
platz, dafür lassen sıch Jedoch die Daten, die im reser- 
vierten RAM-Bereich enthalten sınd, beliebig manipu- 
lıeren. 

Jede Speicherstelle kann ein Byte Information aufneh- 
men, ebenso wie zum Beispiel die CHR$-Funktion Ein- 
Byte-Informationen verarbeiten kann. Es ıst zwar ım Rah- 
men dieses Buches nicht möglıch, sämtliche Speicher- 
strukturen des Commodore 128 vertiefend vorzustellen, 
jedoch sollen einige Grundprinzipien und Manipulations- 
möglichkeiten aufgezeigt werden. 

Für die verschiedenen Operationen wie Varlablendefini- 
tion, Textdefinition..., die während des Programmiıerens 
durchgeführt werden, reserviert der Computer einzelne 
Speicherbereiche, ın die diese Werte eingetragen wer- 
den. So entstehen während des Programmierens soge- 
nannte »Listen« für die Programmzeilennummern, Varla- 
blennamen, Varlablenwerte, Befehle, Anweisungen, 
Funktionen, Texte und so weiter. Um diese Listen 
während des Programmablaufs wiederfinden zu können, 
bezieht sıch der Rechner auf sogenannte »Zeiger«, mit de- 
nen erfaßt ıst, bei welchen Speicherstellen die einzelnen 
Listen beginnen. Diese Zeiger sınd selbst natürlich auch 
Speicherstellen, und zwar ın festgelegten Bereichen. Da 
auf diese Zeiger sehr häufig zugegriffen wird, befinden 
sie sich ın den ersten 256 Speicherstellen, weıl hierdurch 
die Zugriffszeit besonders gering ıst. In Lektion 3, »Pro- 
grammverzweigungen«, wurde bereits darauf hingewie- 
sen, daß der Rechner beı Verzweigungsanweisungen 
stets einen Zählvorgang mit Zeile 0 beginnt, bis dıe Pro- 
grammzeile gefunden ıst, zu der verzweigt werden soll. 
Das gleiche vollzieht sich auch beı der Suche nach den 
jeweiligen Zeigern. 

Die ersten 256 Byte werden ın der Computertechnologie 
»Zero Page« genannt (engl. »Null-Seiteo). In dieser Zero 
Page befinden sıch die Werte für die wichtigsten System- 
operationen. Bei einigen Computermodellen ıst der Um- 
fang der Zero Page größer, zum Beispiel 1 KByte (1024 
Byte) bıs zu 4 KByte (4096 Byte). 

Daneben gibt es noch Speicherbereiche, die andere 
systeminterne Daten enthalten. Zum Beispiel eın »Bild- 
schirmspeicher«, der aus 1000 oder 2000 Speicherstellen 
besteht (entsprechend dem 40- oder 80-Zeichenmodus), 
ın denen die Codes für die Zeichen enthalten sınd, die 
der Bildschirm aktuell darstellt oder ein »Farbspeicher«, 
der parallel zum Bildschirmspeicher die Farben der ak- 
tuell dargestellten Zeichen enthält. 

Vielleicht haben Sıe sıch hin und wieder gewundert, wie 
die scheinbar »krummen« Zahlenwerte 256 oder 65535 
entstanden sınd. Der Grund dafür ıst die 8-Bit-Tech- 


nologie des Commodore 128 beziehungsweise der Heim- 
computer allgemein. An früherer Stelle wurde bereits 
erklärt, daß ein Byte die Informationszusammenfassung 
von acht Bit darstellt. Jedes Bit kann zweı Zustände an- 
nehmen: 0 oder 1, vergleichbar mit einem Lichtschalter, 
der ebenfalls zwei Zustände annehmen kann, nämlich 
»Ein« und »ÄAus«. Somit ergeben sich 2° = 256 mögliche 
Zustände für ein Byte. 


“sit Bit Bit Bit Bit Bit Bit Bit 

7 =) = 4 E 2 1 O 
| 0 | 0 | 0 | e | 0 | O | O | OÖ | Byte-Wert = DO 
Bit Bit Bit Bir Bit Bit Bit Bit 

7 = = n 3 = 1 ® 


| 0 | 0 | O | 0 | O | ie | 0 | 1 | Byte-Wert 2’°O = 1 
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| ® | O | 0 | e | ie) | 0 | 1 | O | Byte-Wert 2’°1 = 2 
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BiE BiE BiE Bit Bit Bit Bit Bit 
7 ie) = 4 E 4 1 0 


| ie) | O | ® | 0 | O | 0 | L | 1 | Byte-Wert 2°0 + 2°1 = 3 


Bit Bit Bit Bit Bit Bit Bit Bit 
7 ie) = gr: E = 1 0 


| 3 | 1 | u} | li | 1 | l | ı | 1 | Byte-Wert 2’B = 256 


Eine Speicherstelle kann niemals einen höheren Wert als 
296 enthalten. Da jedoch wesentlich mehr Speicherstel- 
len vorhanden sınd und verwaltet werden sollen, muß 
man, um Zahlen größer als 256 darzustellen, eine zweite 
Speicherstelle zu Hilfe nehmen. Bei allen Operationen, 
dıe auf Speicherstellen oberhalb von 256 zugreifen, wird 


mit diesem 2-Byte-Verfahren gearbeitet. Die exakte Be- 
zeichnung für das erste Byte ıst Low-Byte (engl. »unteres« 
Byte) und für das zweite Byte High-Byte (engl. »höheres« 
Byte). Mit Low-Byte und High-Byte lassen sıch 256 mal 
256 =65536 Speicherstellen ansprechen. Da die 0 stets als 
Wert mitzählt, entsteht dıe Zahl 65535, dıe als höchst- 
mögliche Programmzeilennummer, höchstmöglicher Fre- 
quenzwert und so weiter angegeben wurde. 

Bei der Operation mit Low-Byte und High-Byte wird der 
Wert des Hıigh-Byte immer mit 256 multipliziert und dann 
zum Wert des Low-Byte addiert. Erstes Beispiel: Es soll 
auf die Speicherstelle 250 zugegriffen werden. In diesem 
Fall enthält das Low-Byte den Wert 250 und High-Byte 
den Wert O0. Dadurch ergibt sich beı der Berechnung 
»Speicherstelle = Low-Byte + 256*High-Byte« der Wert 
250. Zweites Beispiel: Es soll auf die Speicherstelle 257 
zugegriffen werden. Hierbei enthält das Low-Byte den 
Wert l und das High-Byte den Wert 1. Beı der Berech- 
nung »Speicherstelle = Low-Byte + 256*Hıigh-Byte« ergibt 
sich der Wert 257. 

Nach diesem Prinzip sind alle Zeiger der verschiedenen 
Programmlisten und die Zeiger der übrigen Speicherbe- 
reiche aufgebaut. Wenn zum Beispiel dıe Variablenna- 
mensliste bei Speicherstelle 1000 beginnt, so enthält das 
Low-Byte des Zeigers auf diese Liste den Wert 232 und 
das High-Byte den Wert 3, weil 232 + 3*256 = 1000 er- 
gibt. 

Bei einfacher BASIC-Programmierung muß man sıch keı- 
nerleı Gedanken über die Berechnungen machen, weil 
se vom Computer selbsttätig durchgeführt werden. Im 
Zusammenhang mit dem Direktzugriff auf einzelne Spei- 
cherstellen durch PEEK und POKE ist es Jedoch oft not- 
wendig, die Werte von Low-Byte und High-Byte zu ermit- 
teln, damit die gewünschte Speicherstelle gefunden wer- 
den kann. 

Um dem Inhalt einer Speicherstelle zu erfahren — also 
ihr Dezimalwert von mindestens 0 und höchstens 256 —, 
wird die Funktion PEEF. angewandt Die korrekte 
Schreibweise ıst: PEEK (Nummer der Speicherstelle). Ge- 
ben Sıe zum Test einmal die Anweisung: 


PRINT PEEK(213) [RETURN] 


Hierbei wird der Wert 88 ausgegeben. Die Speicherstel- 
le 213 etnhält den betriebsinternen Code der zuletzt ge- 
drückten Taste. Da als letztes [RETURN] gedrückt wurde 
und der Tastaturcode hierfür 88 ıst, wird eben dieser 
Wert ın Speicherstelle 213 aufgenommen. Der Tastatur- 
code hat nıchts mit dem ASCII-Code zu tun, sondern wird 
vom Betriebssystem des Computers ıntern für jede Taste 


zur Verfügung gestellt. Wie sich der Wert der Speicher- 
stelle 213 ändert, kann man beobachten, wenn man ein 
kleines Programm schreibt, das den aktuellen Wert von 
213 fortlaufend ausgibt: 


ı0 FRINI PEEK(217) 
20 GOTO 10 


Nach RUN [RETURN] erscheint zunächst wiederum die 
Zahl 88; doch sobald Sie irgendeine andere Taste drük- 
ken, nımmt die Speicherstelle 213 deren Tastaturcode an, 
der durch PRINT PEEK(213) auf dem Bildschirm ausgege- 
ben wird. Beim Drücken von [1] ist es 56, bei [2] 59 und so 
weiter. Durch [STOP] wird das Programm abgebrochen. 
Dies ıst dıe einfachste Form, den Inhalt einer Speicher- 
stelle (auch »Ädresse« genannt) zu ermitteln. Etwas auf- 
wendiger wird es, wenn man über einen Zeiger auf eine 
Speicherstelle zugreifen will. Dann muß — wie oben er- 
läutert — durch Low-Byte und High-Byte die eigentliche 
Startadresse zunächst ermittelt werden. Ein Beispiel: Die 
Speicherstellen 45 und 46 stellen den Zeiger auf den Be- 
ginn eins BASIC-Programms dar, das heißt durch PEEK- 
(45)+256*PEEK(46) kann man erfahren, ab welcher 
Adresse das aktuelle BASIC-Programm im Computer ge- 
speichert ist. Wenn Sie das folgende kurze Programm 
schreiben, sollte sich der Computer im Zustand unmittel- 
bar nach dem Einschalten befinden, weil sonst mögli- 
cherweise andere Werte als die hier genannten gültig 
sınd. 


20 X=PEEK(4S)+BSG=PEEKCHE) 

30 PRINT X. .n 

Nach RUN [RETURN] erscheint die Zahl 7169. Dies ist die 
Startadresse für die soeben programmierten BASIC-Zei- 
len. Diese Startadresse läßt sich nun für den nächsten 
schritt einsetzen, in dem mit Hilfe einer FOR... NEXT- 


Anweisung und PEEK die Speicherinhalte von 7169 bis 
7181 auf den Bildschirm gelistet werden (Seite 204): 


40 FOR X*7169 ID 7181 
50 PRINI X, PEEK(CX) 
B0 NEXT X | .; 


Diese Zahlenwerte sind sehr interessant und müssen fol- 
gendermaßen interpretiert werden: Die dritte Speicher- 
stelle nach dem Beginn des BASIC-Programms (7171) 
enthält das Low-Byte der ersten Programmzeilennummer 
(= 10). Die darauffolgende Speicherstelle (7172) enthält 


das High-Byte. Das ıst Null, weil die erste Programmzeile 
mit 10 beginnt und allein vom Low-Byte erfaßt werden 
kann. Speicherstelle 7173 enthält den ersten Eintrag der 
Programmzeile 10, nämlich den ASCII-Code von »A« (69). 
Die darauffolgende Speicherstelle (7174) stellt eine be- 
triebsinterne Kennziffer (sogenanntes »Token«-Zeichen) 
für die Variablendefinition »A=« dar. Ihr Wert ist 178. Da- 
nach folgen in den Speicherstellen 7175 bis 7177 die 
ASCII-Codes des Wertes, der der Variablen A zugewie- 
sen wurde, nämlich 49 für »1l«, zweimal 48 für »0«. Als Ab- 
schlußerkennung der Programmzeile 10 wird ın Sper- 
cherstelle 7178 eine »0« eingetragen. — Die Speicherstel- 
len 7169 und 7170 am Anfang enthalten den Zeiger auf 
die dem Abschluß von Zeile 10 folgende Programmzeı- 
lennummer: Ihre Werte sind 11 für Low-Byte und 28 für 
High-Byte. Somit errechnet sich die betreffende Adresse 
11+256*28=7179. In dieser und der folgenden Speicher- 
stelle (7180) befinden sich wiederum Low-Byte und High- 
Byte für die dem Abschluß von Zeile 20 folgende Pro- 
grammzeilennummer. Speicherstelle 7181 enthält das 
Low-Byte der zweiten Programmzeile, nämlıch 20. Speı- 
cherstelle 7182 enthält das High-Byte der zweiten Pro- 
grammzeilennummer (= 0) und so weiter. 

Auf diese Weise ist das gesamte kurze BASIC-Programm 
ab Speicherstelle 7169 ım RAM gespeichert. Alle weıte- 
ren Werte können durch eine entsprechende FOR- 
..NEXT-Anweisung ebenfalls aufgelistet werden. 

Da die Speicherstellen mit ihren Werten nun bekannt 
sind, können sıe durch POKE manipuliert werden. Als er- 


stes Beispiel soll die Programmzeile 10 die Nummer 1] 
erhalten. Dazu wird der Wert des zuständigen Low-Byte 
(Speicherstelle 7171) erhöht: 


POKE 7171,11 [RETURN] 


Geben Sie nun den LIST-Befehl, und Sie werden sehen, 
daß sich die Zeilennummer 10 in 11 verwandelt hat. Alle 
Programmzeilennummern können auf diese Weise belie- 
big verändert werden. Als zweites Beispiel soll der Va- 
riablenname »A« in »C« umgewandelt werden. Da der Va- 
rıablenname in Speicherstelle 7173 registriert ist, wird 
hier durch POKE der ASCII-Code von »C« (= 67) einge- 
geben: 


POKE 7173,67 [RETURN] 


Nach dem LIST-Befehl ıst zu sehen, daß der Computer 
auch diese Manipulation angenommen hat: Aus »A« ist »C« 
geworden. Dies sind zunächst nur zwei Beispiele für die 
Anwendung von PEEK und POKE. Eine Liste der vielen 
verschiedenen manipulierbaren Zeiger und einzelnen 
Speicherstellen des Commodore findet sich im Bedleit- 
buch des Gerätes ım Anhang H von Seite 7 bis 30. 

Will man anstatt aus Low-Byte und High-Byte Startadres- 
sen zu ermitteln den umgekehrten Weg gehen, also ei- 
nen Wert ın Low-Byte und High-Byte aufteilen, so muß 
man sich hierzu der Funktion INT (Abkürzung für 
»Integer«, engl. »ganze Zahl«) bedienen. Die INT-Funktion 
trennt die Dezimalstellen einer Zahl ab und verarbeitet 
nur den ganzzahlıgen Wert. (Ist dieser negativ, so wird er 
um 1 erniedrigt.) Zum Beispiel: 


PRINT INT(10.333) [RETURN] 
10 
PRINT INT(10.666) [RETURN] 
10 


Die Aufteilung eines Wertes ın Low-Byte/High-Byte- 
Werte wırd nun nach folgender Formel vorgenommen: 


Low-Byte = Wert - INT(Wert/256)*256 
High-Byte = INT(Wert/256) 


soll zum Beispiel die erste Programmzeilennummer die- 
ses Listings (derzeit 11) auf 10.000 erhöht werden, so kann 
folgende Programmergänzung eingegeben werden: 


ne ie 'INTC10000/256) 
:S0.PRINT LO,HI . .. a 
100 POkKE 71 71 LO: POKE 172, HI 

1108 LIST. ai ee 


10000 C=100 

eO A=PEERLYSIFESSHPEEKTHE) 

30 PRINT X 

=) FOR %"7168 ID 7181 

50 PRINT X,PEEK(CX) 

60 NEXT X 

70 1L0=-10000-INTC10000/256) *2S56 
BO HI=-INTC10000/256) 

90 PRINT LO,HI 

108 POKE 7171,L0:PDKE 7172,HlI 
119 LISI 


Mit den Zeilen 70 und 80 werden die Low-Byte- und High- 
Byte-Werte der Zahl 10.000 ermittelt (16 und 39, da 
16 + 39*256 = 10.000 ergibt), mit Zeile 90 erfolgt dıe Ausga- 
be auf dem Bildschirm und Zeile 100 schreibt die ermit- 
telten Werte in die Speicherstellen 7171 und 7172, dıe für 
die erste Programmzeile zuständig sind. Nach dem auto- 
matisch ausgeführten LIST-Befehl in Zeile 110 werden Sıe 
feststellen, daß das Programm nun mit Zeile 10.000 be- 
ginnt und mit Zeile 20, 30... fortsetzt. Durch diese etwas 
kuriose Manipulation wird der Programmablauf ın keiner 
Weise beeinträchtigt. 


Zusammenfassung: 


Ermittlung einer Speicherstelle aus 
Low-Byte/High-Byte-Zeiger: 
Speicherstelle = Low-Byte + 256*Hıgh-Byte 


Aufteilung eines Wertes ın 
Low-Byte/High-Byte-Werte: 
Low-Byte = Wert — INT(Wert/256)*256 
High-Byte = INT(Wert/256) 


Neben diesen eher spielerischen Anwendungen von 
PEEK und POKE läßt sıch auch eine Reihe von sinnvollen 
Manipulationen durchführen. Hier einige Beispiele: 


POKE 208,n 


PEEK(212) 
PEEK(213) 
PEEK(235) 
PEEK(236) 


POKE 234,1 


POKE 234,0 


POKE 24l,n 


POKE 249,255 


POKE 249,0 


POKE 775,139 


PORE 178,81 
1024-2023 


setzt den Tastaturpuffer von normal O 
aufn Zeichen; dadurch werden bei 
rascher Eingabe über die Tastatur n 
Zeichen gespeichert, bevor sie auf dem 
Bildschirm erscheinen. Der Wertn 
sollte jedoch nicht höher als 20 liegen 
gıbt den Tastaturcode der augenblick- 
lıch gedrückten Taste aus 

gibt den Tastaturcode der zuletzt 
gedrückten Taste aus 

gibt dıe Zeile aus, ın der sıch der Cur- 
sor gerade befindet 

gıbt dıe Spalte aus, ın der sıch der Cur- 
sor gerade befindet 

schaltet die Revers-Funktion ein (nach- 
folgend mit PRINT ausgegebene Zeı- 
chen erscheinen negativ) 

schaltet dıe Revers-Funktion aus (muß 
nach POKE 234,1 nıcht extra gegeben 
werden, weil dıe Speicherstelle auto- 
matiısch wieder den Wert O0 annımmt) 
bestimmt die Textzeichenfarbe (n kann 
wıe bei der COLOR-Anweisung | bıs 16 
sein) 

schaltet Tonerzeugung beı 
[ICONTROLJHG] aus 

schaltet Tonerzeugung beı 
[CONTROLFJIG] ein 

aktıviert einen LIST-Schutz: Es erscher- 
nen lediglich dıe Programmzeilennum- 
mern 

schaltet den LIST-Schutz aus 
Bildschirmspeicher ım 40-Zeichen- 
modus 

(kann durch POKE 1024,n bis POKE 
2023,n mit Zeichen gefüllt oder durch 
PEEK gelesen werden) 


Zum Schluß noch ein weiterer Trick: Wenn man verhin- 
dern wıll, daß ein BASIC-Programm in seinem Ablauf 
durch die [RUN STOP]-Taste unterbrochen werden kann, 
so läßt sıch dıes durch POKE 808, PEEK(808)-3 bewerk- 
stelligen. Die Taste wird erst wieder durch Drücken des 
RESET-Schalters aktiviert. 


Lektion 19 


Zusammenfassung: 
BASIC-Befehle 


In dieser Lektion werden alle BASIC-Befehle des Com- 
modore 128 in alphabetischer Reihenfolge aufgeführt und 
deren Anwendungsmöglichkeiten kurz beschrieben. Auf- 
geführt sind auch solche Befehle, die ın den vorher- 
gehenden Lektionen keine Verwendung fanden. Diese 
Lektion dient somit als universelle Informationsquelle für 
BASIC-Programmierer. 


AUTO BEER DEREN ARE 


Automatische Zeilennumerlierung beim Erstellen eines 
BASIC-Programms. Die Schrittweite kann freı gewählt 
werden. 


Angabe: Schrittweite 


Syntax: AUTO 10 
Automatische Zeilennumerlerung In 
Zehnerschritten 


AUTO 
Schaltet automatische Zeilennumerlerung 
ab 


Bemerkung: Nach AUTO-Befehl muß die erste 
Programmzeilennummer trotzdem von 
Hand eingegeben werden 


BACK UP ERREGER REES 


Alle Programme und Dateien einer Diskette werden auf 
eine zweite Diskette kopiert. 


Angaben: D Laufwerksnummer TO D Laufwerks- 
nummer,U Geräteadresse 


Syntax: BACKUP DO TO D1,U8 
Kopiert alle Programme der Diskette aus 
Laufwerk 0 auf die Diskette ın Laufwerk | 


Bemerkung: Es sınd zwei Laufwerke notwendig 


BANKEN 


Wählt einen der drei intern verwalteten Speicherberei- 
che des Commodore für eine POKE-Anweisung oder 
PEEK-Funktion. Jeder Speicherbereich umfaßt dabeı 64 
KByte. Eın BANK-Befehl muß normalerweise nicht gege- 
ben werden, weil bei Betriebsbeginn automatisch die 
Speicherbänke O und 1 für BASIC-Operationen aktiviert 
sind. 


Angaben: numerischer Wert zwischen 0 und 15 


Syntax: BANK 15 
Erlaubt Zugriff auf Speicherbank 15 


Bemerkung: Die Speicherbänke 2 bıs 14 sınd nicht vor- 
handen 


BLOAD REBEL ERNENEREATRE 


Binär auf Diskette gespeicherte Daten werden in den Ar- 
beitsspeicher des Computers geladen (vergleiche Lek- 
tion 15, »Sprites«). 


Angaben: Dateiname,D Laufwerksnummer, 
U Geräteadresse, 
ON BANK-Nummer,P Speicherstelle 


Syntax: BLOAD "DATEN" ,DO,U8,ON BANK 15, P1024 
Einlesen der Binärdaten aus Datei 
DATEN von Laufwerk 0 mit Geräteadresse 
8 und Ablegen der Daten in BANK 15 ab 
Speicherstelle 1024 


BLOAD (D$) ,DO,U(LN),ON BANK X,P(AD) 
Einlesen der Binärdaten aus Datei DN$ 
von Laufwerk 0 mit Geräteadresse LN und 
Ablegen der Daten in BANK X ab 
Speicherstelle AD 


Bemerkung: Varlablennamen sind in Klammern zu 
setzen 


BOOT rk a REEL RER RT 


Ein ın Binärdaten abgespeichertes Programm wird einge- 
laden und gestartet. 


Angaben: Dateiname,D Laufwerksnummer,U Geräte- 
adresse 
Syntax: BOOT "BINPROGRAMM! ‚DO, U8 


Die bınär gespeicherte Datei 


»BINPROGRAMM« wird in den Ar- 
beitsspeicher geladen und gestartet 


Bemerkung: Varlablennamen sind ın Klammern zu 
setzen. 


BSA VE RENTEN RAN 


Die Daten eines bestimmten Speicherbereichs werden ın 
binärer Form auf Diskette gespeichert (vergleiche Lek- 
tion 15, »Sprites«). 


Angaben: Dateiname,D Laufwerksnummer,U Geräte- 
adresse,B BANK-Nummer,P Startspeicher- 
stelle TO P Endspeicherstelle 


Syntax: BSAVE "SPRITEO"',DO,U8,BO,P3584 TO 
P4095 
Die Daten eines Spriteentwurfs 
werden unter dem Dateinamen »SPRITEO« 
in binärer Form auf Diskette 
gesichert. 


BSAVE (DN$),D0,U8,BO,P(A1) TO P(A2) 
Wie oben, jedoch mit Variablenangaben. 


Bemerkung: Varliablenwerte sınd in Klammern zu 
setzen. 


CATALO Gew RERRERENEUIEERDI RNIT 
Identisch mit DIRECTORY. 


CLR BRENNER INA 


Setzt im Direktmodus oder auf Programmebene alle nu- 
merischen Variablenwerte auf Null und weıst allen al- 
phanumerischen Variablen ein Leerzeichen zu. 


Syntax: CLR 


CM D pisiise ar iidab ET TRENNEN ER TERRORISTEN 


Übergibt alle ausgehenden Daten an ein adressiertes 
Gerät. Wird fast immer für Ausdruckoperationen einge- 
setzt. 


Angaben: Datenkanalnummer des angesprochenen 
Gerätes 


Syntax: CMD 1 
Übergibt alle ausgehenden Daten (zum 
Beispiel PRINT-Anweisungen) an das 
Gerät, das durch OPENH],.. oder 
OPEN ],... angesprochen wurde. 


Bemerkung: Ohne vorhergehende OPEN #- oder 
OPEN-Anweisung unwirksam. 


COLLECT BRENNEN 


Löscht alle Dateien, die bei Diskettenoperationen nıcht 
ordnungsgemäß durch DCLOSE# geschlossen wurden. 


Angaben: D Laufwerksnummer ON U Geräteadresse 


Syntax: COLLECT DO ON U8 


CONT ABENDESSEN 


setzt ein durch STOP-Anweisung unterbrochenes Pro- 
gramm fort. 


Syntax: CONT 


Bemerkung: CONT ist ım Direktmodus nach 
Abbruch eines Programms beziehungs- 
weise beim Auftreten eines 
Fehlers unwirksam. 


CONCAT ai EIERN 
Verbindet die Daten zweier Sequentieller Dateien. 


Angaben: D Laufwerksnummer , Quellendateiname 
TO D Laufwerksnummer, 
Zıeldateiname ON U Geräteadresse 


Syntax: CONCAT DO, "ADRESSEN1" TO D1, 
NGESAMTADR" ON U8 
Überträgt die Daten aus »ADRESSEN]I« 
von Laufwerk 0 ın die Datei 
»GESAMTADR« von Laufwerk |. 


Bemerkung: Varlablennamen sınd ın Klammern zu 
setzen. 


COPY BEREITEN NEE 


Kopiert eine einzelne Datei auf einem oder zwei Laufwer- 
ken. 


Angaben: 


Syntax: 


Bemerkung: 


D Laufwerksnummer , Quellendateiname 
TO D Laufwerksnummer, 
Zieldateiname ON U Geräteadresse 


COPY DO, "PROGRAMM!" TO DO, "PROGRAMMKO- 
PIE" ON U8 

Erstelle eine Kopie des Programms 
»PROGRAMM« unter dem Dateinamen 
»PROGRAMMKOPIE«. 


Quellenname und Zielname dürfen bei Be- 
trieb mit einem Laufwerk nicht identisch 
sein. 


DELET Diss RER NER IN 


Löscht einen angegebenen Zeilenbereich in einem 
BASIC-Programm. 


Angaben: 


Syntax: 


Bemerkung: 


Zeillennummer 


DELETE 10 

DELETE 10-100 

DELETE 10- 

DELETE -100 

l. Die Programmzeile 10 wırd gelöscht. 

2. Der Bereich von 10 bis 100 wırd 
gelöscht. 

3. Der Bereich ab Zeile 10 wird gelöscht. 
4. Der Bereich bıs Zeile 100 wird gelöscht. 


Eine einzelne Programmzeile kann auch 
durch Angabe der Zeilennummer, gefolgt 
von [RETURN], gelöscht werden. 


DIRECTOR Year ERERRENEBAREENEEEIEERNT 


Listet das Inhaltsverzeichnis einer Diskette auf. 


Angaben: 


Syntax: 


keine oder Dateiname 


DIRECTORY 
Listet alle Dateinamen einer Diskette auf. 


DIRECTORY "PROGRAMM! 
Listet die Datei »PPROGRAMM« auf. 


DIRECTORY "PRO%#!" 
Listet alle Dateinamen auf, die mit »PRO« 
beginnen. 


Listet alle Dateinamen auf, dıe mit »PRO« 
beginnen und acht Zeichen lang sınd. 


Bemerkung: DIRECTORY ıst identisch mit CATALOG. 


IDIHOyLVDBE 0 N 2 ae ee 


Ein bestimmtes Programm wird von der Diskette ın den 
Arbeitsspeicher des Computers geladen. 


Angaben: Dateiname 
Syntax: DLOAD "PROGRAMM!" 
DLOAD DN$ 


Bemerkung: Beim Einladen wird eın im Speicher be- 
findliches Programm gelöscht. 


DSA VE BRASS RAR” 


Sichert ein ım Arbeitsspeicher des Computers befindlı- 
ches Programm auf Diskette. 


Angaben: Dateiname 
Syntax: DSAVE "PROGRAMM!" 
DSAVE DN$ 


Bemerkung: Nach der Sicherung steht das 
Programm weiterhin im Arbeitsspeicher 
zur Verfügung. 


DVERIFY BEREERIENCEREORERNEEERSTEESETEIIT ARTNET 


Überprüft, ob die Daten-Byte eines abgespeicherten Pro- 
gramms mit den Daten-Byte des ım Speicher befindlichen 
Programms identisch sind. DVERIFY erhöht dıe Datensı- 
cherheit. 


Angaben: Dateiname 
Syntax: DVERIFY "PROGRAMM! 


Bemerkung: Wird der DVERIFY-Befehl nach Aus- 
führung eines Programms gegeben, ın 
dem grafische Operationen stattfanden, 
wird eine Fehlermeldung ausgegeben, 
auch wenn das Programm auf Diskette 
korrekt abgespeichert wurde. 


FAST EEE REITER 


Erhöht die Taktfrequenz des Hauptprozessors von | MHz 
auf 2 MHz. Die Arbeitsgeschwindigkeit des Computers 
wird dadurch verdoppelt. 


Syntax: FAST 


Bemerkung: Nur im 80-Zeichenmodus wirksam. 


FETC FB REBREERETETEIEREREENTERERSSRET ERSTER RI RER 


Überträgt die Inhalte einer bestimmten Anzahl von Spei- 
cherstellen aus einer externen RAM-Erweiterung ın den 
Arbeitsspeicher des Computers. 


Angaben: Anzahl der zu übertragenden Byte Start- 
adresse im Arbeitsspeicher, 
Startadresse der RAM- 
Erweiterung, BANK-Nummer 


Syntax: FETCH 1024,4096,0,7 
Es werden 1024 Byte (1 KByte) ab Sper- 
cherstelle O0 aus BANK 7 der RAM- 
Erweiterung im Arbeitsspeicher ab Sper- 
cherstelle 4096 abgelegt. 


Bemerkung: Kann nur mit RAM-Erweiterung (Steck- 
modul) ausgeführt werden. 


GOEIL ERITREA RN ERHEBEN NAT 
Schaltet um in den Commodore 64-Modus. 
Syntax: GO64 


Bemerkung: Ein ım 128er-Modus befindliches 
Programm wird beim Umschalten 
gelöscht. 


HEAD ER BERRERBUSREEBNRESER GENESUNG ENTER ERRIENNSEBENE 


Teilt eine Diskette in eine bestimmte Anzahl von Sektoren 
und Spuren ein, die vom Diskettenbetriebssystem be- 
schrieben und gelesen werden können (vergleiche Lek- 
tıon 7). 


Angaben: Diskettenname,D Laufwerksnummer, 
I Identifikationsmarkierung, U Geräte- 
adresse 


Syntax: 


Bemerkung: 


HEADER "DISK1",DO,I01,U8 
Formatiert eine Diskette mit dem 
Namen »DISK]« und der 
Identifikationsmarkierung 01. 


Beim Formatieren einer bereits 
benutzten Diskette werden alle Daten 
gelöscht. Jede Diskette muß eine 

andere Identifikationsmarkierung 
erhalten, weıl sonst eın 
DIRECTORY-ERROR auftreten kann (ver- 
gleiche Lektion 12). 


FI E/ LP RSRRBEENERRSEISRABIINNIDETERIRDNENEE RER 


Zeigt nach Auftreten eines Fehlers die Zeilennummer an, 
ın der der Fehler vorkam. 


Syntax: 


Bemerkung: 


HELP 


Die Taste [HELP] ıst mıt dem HELP-Befehl 
belegt und kann beim Auftreten eines Feh- 
lers gedrückt werden. 


KEY ERBRINGEN NEE 


Erlaubt die Belegung einer der acht Funktionstasten ([fl] 
bis [f8]) mit einem Befehl oder einer Anweisung. 


Angaben: 


Syntax: 


Bemerkung: 


Funktionstastennummer ‚Befehl oder 
Anweisung 


KEr 1,"LIS7® 
Weist [il] den Befehl LIST zu. 


KEY 1, "LIST"+CHR$(13) 
Wie vor, jedoch mit Ausführung des 
[RETURN]. 


KEY ohne Angabe listet die augen- 
blickliche Belegung der Funktionstasten 
auf. 


LIST RSENERERZSKTBRKNIIEGBNEENERDR ETAGE SERRLNESNEREZEN 


Listet einen Teil oder ein komplettes BASIC-Programm 
auf den Bildschirm oder ein anderes Ausgabegerät 
(Drucker, Diskette). 


Angaben: 


Zeillennummern 


Syntax: LIST 
LIST 10 
LIST 10-100 
LIST 10- 
LIST -100 
l. Das komplette Programm wird 
gelistet. 2. Zeile 10 wird gelistet. 3. Zeilen 
10 bıs 100 werden gelistet. 4. Alle Zeilen 
ab Zeile 10 werden gelistet. 
5. Alle Zeilen bis Zeile 100 werden 
gelistet. 


Bemerkung: Durch OPEN #- oder OPEN-Anweisung 
kann in Verbindung mit dem CMD-Befehl 
ein Listing auch auf dem Drucker ausge- 
geben oder auf Diskette gespeichert wer- 
den. 


MONITOR BESTE EIEEENIREREREEERENRLE 


Ruft den integrierten Maschinensprachemonitor auf und 
erlaubt das Programmieren in Maschinensprache (wird 
in diesem Buch nicht behandelt). 


NEW ererRRENETE TEEN NT 


Löscht ein im Speicher befindliches BASIC-Programm 
und erlaubt den Neubeginn von Eingaben, ohne daß der 
Computer ausgeschaltet werden muß. 


Syntax: NEW 


RENAME sauna NREIIRERNIARDERRIENNN 


Erlaubt die Umbenennung eines Dateinamens auf Dis- 
kette. 


Angaben: bisheriger Dateiname TO neuer 
Dateiname 
Syntax: RENAME "PRIVADR" TO "PRIVATADRESSEN" 


Bemerkung: Variablennamen sind in Klammern zu 
setzen. 


RENUMBER zes RRIITEUREN 


Numeriert dıe Programmzeilen eines BASIC-Programms 
ın einer freiwählbaren Schrittweite um. 


Angaben: 


Syntax: 


Bemerkung: 


erste neue Zeilennummer, 
Schrittweite, Beginn ab Zeile 


RENUMBER 

RENUMBER 1000,10,100 

Im ersten Fall wird ein komplettes 
BASIC-Programm ab Zeile O0 mit der 
Schrittweite 10 (voreingestellte Werte) 
umnumeriert. Im zweiten Fall soll die 
erste neue Zeilennummer 1000 lauten, 
alle weiteren mit Schrittweite 10 
folgen und der Vorgang der 
Umnumerilerung im bestehenden 
Programm ab Zeile 100 beginnen. 


Verzweigungsanweisungen (GOTO, GO- 
SUB und so weiter) werden bei der Umnu- 
merlerung automatisch berücksichtigt. 


RUN tea NIEREN RETERIEERERUNTTR 


Startet ein BASIC-Programm. 


Angaben: 


Syntax: 


Bemerkung: 


keine oder Zeilennummer oder 
Dateiname, D Laufwerksnummer, 
U Geräteadresse 


RUN 

RUN 1000 

RUN "PROGRAMM!" ,DO,U8 

l. Ein im Arbeitsspeicher befindliches 
Programm wird ab der ersten 
Programmzeile gestartet. 2. Der 
Programmstart erfolgt ab Zeile 1000. 3. Ein 
Programm wird unter dem 

angegebenen Dateinamen von 

Diskette geladen und sofort gestartet. 


Beim Programmstart in Verbindung mit 
dem Laden von Diskette wird ein ım 
Arbeitsspeicher befindliches 
Programm gelöscht. 


SCRATC HEERES 


Löscht einen Dateinamen aus dem Inhaltsverzeichnis eıi- 


ner Diskette. 
Angaben: 
Syntax: 


Bemerkung: 


Dateiname 


SCRATCH "PROGRAMM" 
SCRATCH "X 


l. Der Dateiname »PROGRAMM« wird 
gelöscht. 2. Alle Dateinamen werden 
gelöscht. 3. Alle Dateinamen, die mit 
»PRO« beginnen und acht Zeichen lang 
sind, werden gelöscht. 


SCRATCH löscht nur den Dateinamen aus 
dem Inhaltsverzeichnis einer Diskette, 
nicht die Programmadaten. Durch 
UNSCRATCH kann eın versehentlich 
gegebener SCRATCH-Befehl wieder 
rückgängig gemacht werden. 


SLEEP ASRSREENERSEERNRETUNE 


Hält dıe Programmausführung für eine freı wählbare Zahl 
von Sekunden an. 


Angaben: 


Syntax: 


Numerischer Wert zwischen O und 65535 
für die Zahl der Sekunden 


SLEEP 5 
Das Programm unterbricht seinen 
Ablauf für fünf Sekunden. 


SLO Wire 


Setzt dıe Taktfrequenz des Hauptprozessors von 2 MHz 
auf 1 MHz herab. Die Arbeitsgeschwindigkeit des Com- 
puters vermindert sich dadurch um die Hälfte. 


Syntax: 


Bemerkung: 


SLOW 


Nur im 80-Zeichenmodus wirksam. Nur 
möglich, wenn die Taktfrequenz vorher 
mit FAST heraufgesetzt wurde. 


SPRDEF BRRIEWRRIIRLAITIORIERERENTIERTSNEN 


Schaltet in den Sprite-Editor um, wo man benutzerspezifl- 
sche Figuren in hochauflösender Grafik definieren kann 
(vergleiche Lektion 15). 


Syntax: SPRDEF 


SWAP ri BERRR NIEREN? 


Tauscht die Inhalte einer wählbaren Anzahl von Sper- 
cherstellen zwischen Arbeitsspeicher und RAM-Erwer- 
terung aus. 


Angaben: Anzahl der auszutauschenden 
Byte, Startadresse im Arbeitsspeicher, 
Startadresse in der RAM-Erweiterung, 
BANK-Nummer 


Syntax: SWAP 1024,4096,0,7 
Es werden 1024 Byte (1 KByte) 
zwischen dem Arbeitsspeicher ab Sper- 
cherstelle 4096 und BANK 7 ab Speicher- 
stelle 0 ausgetauscht. 


Bemerkung: Nur in Verbindung mit einer 
RAM-Erweiterung möglıch. 


TRON/TROFT BienmmEREEEE TEE 


Beim Programmstart werden die aktuell bearbeiteten 
Programmzeilennummern aufgelistet. Damit lassen sıch 
Programme schrittweise testen. 


Syntax: TRON 
TROFF 
TRON aktiviert die 
Programmablaufverfolgung. 
TROFF schaltet TRON wieder aus. 


Lektion 20 


Zusammenfassung: 
BASIC-Anweisungen 


In dieser Lektion werden alle BASIC-Anweisungen des 
Commodore 128 in alphabetischer Reihenfolge aufgelı- 
stet und deren Anwendungsmöglichkeiten kurz beschrie- 
ben. Aufgeführt sind auch Anweisungen, die in den vor- 
hergehenden Lektionen keine Verwendung fanden. 


APPEND# gem 


Ermöglicht es, an eine bestehende Sequentielle Dateı 
neue Daten anzufügen. 


Angaben: Datenkanalnummer, Dateiname,D Lauf- 
werksnummer,U Geräteadresse 


Syntax: APPEND # 1, "NAME!" ,DO,U8 
Öffnet den Datenkanal | für die Datei 
»NAME« auf Laufwerk O0 mit der 
Geräteadresse 8. Neue Daten können 
mit Hilfe von PRINT# und PUT# 
hinzugefügt werden. 


Bemerkung: Variablennamen müssen in Klammern 
gesetzt werden. 


BEGCIN... BEIN msssmeeurrEcEEEEEEEEEEEEEEEEEE 


Erlaubt, mehrere Befehle, Anweisungen und Funktionen 
im Zusammenhang mit der IF... THEN-Anweisung In einen 
beliebig langen Abschnitt zusammenzufassen. Beı Nicht- 
zutreffen einer Bedingung wird das Programm mit der 
Zeile fortgesetzt, die BEND folgt. 


Syntax: IF...THEN BEGIN 
Programm 
Programm 
Programm 


BEND 
Programm 


Bemerkung: BEGIN kann immer nur in Verbindung mit 
IF programmiert werden. 


BOX ERINNERN ENDEN 


Erlaubt das Zeichnen eines Rechtecks ın hochauflösen- 
der oder mittlerer Grafik und füllt bei Bedarf dıe gezeich- 
nete Fläche mit Farbe aus (vergleiche Lektion 14). 


Angaben: Farbaquelle, x/y-Koordinate für linke obe- 
re Ecke, x/y-Koordinate für rechte untere 
Ecke, Drehwinkel der darzustellenden 
Fläche, Angabe zum Ausmalen 


Syntax: BOX 1,10,5,50,80,0,1 
Ein Rechteck mit der Vordergrundfarbe 
(1), dessen linker oberer Eckpunkt am 
Bildschirmposition 10,5 und dessen rech- 
ter unterer Eckpunkt beı Koordinate 50,80 
liegt, wird parallel zum Bildschirmrand 
(Winkel 0) gezeichnet und mit der 
Zeichenfarbe ausgefüllt (1). 


Bemerkung: Einzelheiten ın Lektion 14. 


CHAR ARBEITERN EIERN EL LTERRIHZENERNEN 


Positioniert den Cursor an eine bestimmte Bildschirm- 
position und schreibt eine beliebige Zeichenkette, wahl- 
weise invertiert, an diese Stelle. 


Angaben: Farbquelle, x/y-Bildschirmkoordinate, Zeı- 
chenkette, Angabe für Invertierung 


Syntax: CHAR -1,9,10, PTEXD" 1 
CHAR 1,9,10,% & 
CHAR 1,5,10,STR$(NR),O 
l. Schreibt ab Spalte 5, Zelle 10, das Wort 
»IEXTI« ın ınvertierten Buchstaben (Nega- 
tıvschrift). 2. Positioniert lediglich den Cur- 
sor In Spalte 5, Zeile 10, ohne einen Text zu 
schreiben. 3. Schreibt an gleiche Position 
den Wert der durch STR$ in eine Zeichen- 
kette umgewandelten numerischen Varla- 
blen NR. 


Bemerkung: Die Ausgabe eines numerischen 
Wertes ohne Umwandlung mit STR$ ist 
nıcht möglich. 


Teil Il 


CIRCL LE nn 


Zeichnet einen Kreis, eine Ellipse oder eın beliebiges re- 
gelmäßiges Polygon (vergleiche Lektion 14). 


Angaben: Farbauelle, Mittelpunkt, Radius ın 
x-Richtung, Radius ın y-Richtung, Anfangs- 
winkel, Endwinkel, Drehwinkel zur Bild- 
schirmebene, Segmentwinkel 


Syntax: CIRCLE 1,100,80,40,40,0,360,0,1 
CIRCLE 1,100,80,40 
CIRCLE 1.100,80, „5, 360/12 
CIRCLE 1,100,80,40,30 
l. Zeichnet einen Kreis (eigentlich ein 
Polygon) mit der Vordergrundfarbe (l) um 
Punkt 100,80 mit einem Radius von 40 von 
0 bis 360 Grad (also einen vollen Kreis), 
umgedreht (0) mıt dem Segmentwinkel- 
wert | (entspricht einer 360-eckigen 
Figur). 2. Zeichnet ebenfalls einen vollen 
Kreis, weil der y-Radiıus bei fehlender An- 
gabe mit dem x-Radius identisch ıst und 
die übrigen Werte voreingestellt sınd. 
3. Zeichnet ein Zwölfeck und übernimmt 
durch die bloße Angabe von Kommata die 
voreingestellten Werte. 4. Zeichnet eine 
Ellipse mit einem x-Radius von 40 und 
einem y-Radius von 30. 


Bemerkung: Einzelheiten ın Lektion 14. 


C LOSE RERSRRERISIRNIRIIAENENIDEENIIRNEEIDENERIUNEERIEEEN 
Schließt einen geöffneten Datenkanal. 


Syntax: CLOSE 1 
CLOSE 
Im ersten Fall wırd Datenkanal 1 geschlos- 
sen, Im zweiten Fall alle bis dahın geöffne- 
ten Datenleitungen. 


Bemerkung: Nur wirksam, wenn zuvor ein Datenkanal 
mit OPEN eröffnet wurde. Gibt Jedoch beı 
mehrfacher Anwendung keine Fehlermel- 
dung aus. Nicht ıdentisch mit CLOSE#. 


COLLISION kahl 


Führt zu einer Programmverzweigung, wenn die angege- 
bene der drei möglichen Kollisionsarten festgestellt wird: 
l. Kollision von zwei Sprites, 2. Kollision von Sprite und 
anderer Bildschirmdarstellung, 3. Kollision eines Sprites 
mit einem Lichtgriffel (vergleiche Lektion 15). 


Angaben: Kollisionstyp, Zeilennummer 


Syntax: COLLISION 1,1000 
Verzweigt zur Zeile 1000, wenn zwei 
Sprite-Figuren zusammentreffen. 


Bemerkung: Die angegebene Zeilennummer wird als 
GOSUB-Anweisung interpretiert, das heißt 
zum Abschluß der Ausführungen nach 
einer Kollisionregistrierung muß mit 
RETURN in den ursprünglichen Pro- 
grammablauf zurückverzweigt werden. 


COLOR RERBLNDNENEEENIERTRDRUNEERENDRRNNZRRDERSSHEIENTENNEBNEENRONGN 


Erlaubt die Definition von Vordergrund-, Hintergrund-, 
Rand- und Zeichenfarbe. 


Angaben! Farbauelle, Farbcode 


Syntax: COLOR 0,2 
Schaltet den Hintergrund bei 40-Zeichen- 
darstellung auf Farbe Weiß. 


Bemerkung: Einzelheiten ın Lektion 5, 
»Bildschirmgrafik«. 


DATA URIEREREBEEENNERER DEN BERTERRTERENENEEIRE ERINNERN 


Speichert in einem BASIC-Programm numerische oder 
alphanumerische Daten in einer Liste, auf die jederzeit 
durch READ zugegriffen werden kann. 


Angaben: Daten 


Syntax: DATA 1,2, 3;4,5,6,7,8,9,10 
DATA "MONTAG" , "DIENSTAG" , "MITTWOCH"! 
DATA 1,"MONTAG-",2, 
"DIENSTAG", 3,"MITTWOCH!" 
l. Eine Liste von numerischen Daten. 
2. Eine Liste von alphanumerischen Daten. 
3. Eine Liste von gemischten Daten. 


Bemerkung: Nach dem Einlesen durch READ gelten 
DATA-Angaben als abgearbeitet; sıe 
können nur durch RESTORE ein zweites 
Mal gelesen werden. 


DCLEARERERESIEDIIR REN EEE EEEIENLNN 


Schließt alle zur Diskettenstation geöffneten Datenkanäle, 
jedoch keine Dateien. DCLEAR entspricht der ınhaltlosen 
PRINT #-Anweisung, wenn nach dem Ausdruck mit CMD 
der Datenkanal zum Drucker geschlossen werden soll. 
Genau wie PRINT# muß DCLEAR vor der CLOSE- 
Anweisung gegeben werden. 


Angaben: keine oder D Laufwerksnummer ON U 
Geräteadresse (bei Verwendung von zwei 
Laufwerken) 

Syntax: DCLEAR 


DCLEAR D1 ON U9 

l. Schließt alle offenen Datenkanäle zu 
Laufwerk 0 mit der voreingestellten Gerä- 
teadresse 8. 2. Schließt dıe Datenkanäle 
zu Laufwerk | mit der Geräteadresse 9. 


DCLOSE RESET EINE ERBEN 


Schließt einen Datenkanal zu einer geöffneten Dateı be- 
ziehungsweise alle Datenkanäle der derzeit geöffneten 
Dateien. 


Angaben: keine oder Datenkanalnummer ON U 
Geräteadresse 
Syntax: DCLOSE 


DCLOSE#1 ON U9 

l. Schließt alle Datenleitungen von geöff- 
neten Dateien ım Diskettenlaufwerk 0 mit 
Geräteadresse 8 (voreingestellt). 

2. Schließt Datenkanal 1 zum Laufwerk 
mit Geräteadresse 9. 


DEF FN BOmBREIBERRER BIRNEN RREBENRTRERRERRNSGSTEINNIBENTEIENT 


Erlaubt die Definition eigener arıthmetischer Funktionen 
für die Anwendung innerhalb eines BASIC-Programms. 


Angaben: Name der Funktion, Variablen der Funk- 
tion, arıthmetischer Ausdruck für die Be- 
rechnung der Funktion 


Syntax: 


Beispiel: 


Ergebnis: 


Beispiel: 


Ergebnis: 


Bemerkung: 


DEF FNWOB(A)=6*A*A 

In diesem Fall wırd eine Funktion zur Be- 
rechnung der Oberfläche eines Würfels 
definiert. Der Funktionsname ist WOB, als 
Variablenname dient A; danach folgt die 
Formel zur Berechnung einer Würfelober- 
fläche. 


10 DEF FNWOB(A)=6*A*A 
20 A=5 

30 B=FNWOB(A) 

40 PRINT B 


150 


Mit DEF FN ist es auch möglich, 
Zeichenkettenfunktionen zu definieren, 
zum Beispiel Umwandlung von Kleinbuch- 
staben ın Großbuchstaben oder umge- 
kehrt. 


10 def fngk(b)= asc(a$)+ 128 

20 ınput "Geben Sıe einen Kleinbuch- 
staben ein';a$ 

30 b$=chr$(fngk(b)) 

40 print b$ 


Bei Eingabe von zum Beispiel »q« erscheint 


»O«. 


DEF FN... muß vor dem ersten Aufruf von 
FN... definiert werden. Die Definition ist 
nur auf Programmebene möglich. 


DIM wesiensesni ts ERBRRRENERIEIEITTNEIERE 


Reserviert eine bestimmbare Anzahl von Speicherplätzen 
für Feldvariablen. 


Angaben: 


Syntax: 


Varlablenname, Index 


DIM A(25) 

DIM A$(25) 

Dimensioniert im ersten Fall ein Feld mit 
26 Elementen (der Wert O wird mitgerech- 
net) für dıe numerische Variable A und im 
zweiten Fall das gleiche für die alpha- 
numerische Variable A$. Die Definition 
erfolgt durch A(lIndexzahl)= Wert bezie- 
hungsweise A$(Indexzahl) = Zeichenkette. 


Bemerkung: Feldvariablen mit weniger als |] Elemen- 
ten müssen nicht durch DIM indiziert wer- 
den, weil dieser Speicherplatz vom Be- 
triebssystem automatisch zur Verfügung 
gestellt wird. 


DO/LOOP/UNTIL/WHILE/EXIT HauEmuEEEEEEEEEEEEEEEEE 


Steuert den Ablauf einer Programmschleife. 


Syntax: DO UNTIL 
LOOP 

Beispiel: 10 DO UNTIL A$="A’ 
20 GET A$ 
40 LOOP 


50 Programm 
Das Programm wird erst nach Eingabe 
des Zeichens »A« fortgesetzt. 


Beispiel: 10 DO UNTIL A= 123 
20 IF A=12 THEN BIT 
30 INPUT "GEHEIMCODE 
EINGEBEN: ;A 
40 LOOP 
Das Programm wird verlassen, wenn die 
Eingabe 123 gemacht wurde. 


Beispiel: WA=] 
20 DO WHILE A«10 
30 A=A+l 
40 PRINT A 
50 LOOP 
Solange der Wert von Ä kleiner 10 ıst, 
wird die Schleife fortgeführt. 


Bemerkung: Ohne Angabe UNTIL oder WHILE werden 
DO... LOOP-Anweisungen 
unendlich oft durchgeführt. 


DOPEN # BRIRRERERUENNESREISENGRSRDZSSEBREES ERTEILEN RE 


Eröffnet den Datenkanal zu einer Sequentiellen oder Re- 
latıven Dateı. 


Angaben: Datenkanalnummer, Dateiname, 
L Datensatzlänge, D Laufwerksnummer, U 
Geräteadresse, Angabe für »Schreiben« 
oder »Lesen« einer Datei 


Syntax: DOPEN # 1, "NUMMER" ,DO,U8,W 
DOPEN # 1, "NUMMER" ,DO,U8,R 
DOPEN # 1, "ADRESSEN" ‚1234 
l. Eröffnet den Datenkanal 1 zum Schreı- 
ben einer Sequentiellen Datei. 2. Eröffnet 
den Datenkanal 1 zum Lesen einer Se- 
quentiellen Datei. 3. Eröffnet den Daten- 
kanal 1 zum Schreiben oder Lesen einer 
Relativen Datei. 


Bemerkung: Einzelheiten ın Lektion 7. 


DRAW ERINNERN 


Zeichnet im hochauflösenden oder mittleren Grafikmodus 
eine Linie. 


Angaben: Farbquelle,x/y-Koordinate TO 
x/y-Koordinate 


Syntax: DRAW 1,10,5 TO 100,20 
Zeichnet eine Linie von Spalte 10, 
Zelle 5 zur Spalte 100, Zeile 20. 


Bemerkung: Einzelheiten ın Lektion 14. 


EN D REEL TEEN TREE BRETTEN 


Beendet von Programmebene aus die Ausführung eines 
Programms. 


Syntax! END 


EN VELO PE RR NITRO UNE 


Definiert den Verlauf einer Hüllkurve. Einzelheiten ın 
Lektion 16. 


FILTER BRENNER UN SÄRRRSRSTRRENTER A 


Definiert die Parameter für Klangfilter. Einzelheiten ın 
Lektion 16. 


FOR... NEXT/ST EP BaaesmmEcEEEEE EEE 


Erlaubt eine beliebige Anzahl von Durchläufen eines Pro- 
grammabschnitts. 


Angaben: Zählvariable, Angabe für die Zahl der 
Durchläufe, wahlweise Angabe der 
Schrittweite 


Syntax: FOR X=1 TO 20 
FOR X=1 TO 200 STEP 10 
In beiden Fällen werden zwanzig Durch- 
läufe programmiert, weil beim zweiten 
Beispiel in Zehnerschritten gezählt wird. 


Bemerkung: FOR-Anweisungen müssen stets mit NEXT 
abgeschlossen werden. Es lassen sıch 
mehrere FOR...NEXT-Anweisungen inein- 
ander verschachteln. 


GE’TKE Y ReSUSHNSHRENREI RER ERRBIENGENERIERUENREEVDRRNE TREE 


Setzt das Programm nach Eingabe eines Zeichens oder 
einer Zahl fort. 


Angabe: numerische oder alphanumerische 
Variable 

Syntax: GETKEY A 
GETKEY A$ 


Erwartet im ersten Fall einen numeri- 
schen, im zweiten Fall einen alpha- 
numerischen Wert. 


GOSUB/RETUR N Hair 


Erlaubt dıe Verzweigung In ein Unterprogramm mit an- 
schließender Rückverzweigung zum Programmpunkt, 
der verlassen wurde. 


Angaben: Zeilennummer 


Syntax: GOSUB 5000 
Verzweigt In ein Unterprogramm, das ın 
Zeile 5000 beginnt. 


Bemerkung: Im Unterprogramm muß dıe RETURN- 
Anweisung ohne weitere Angabe 
gegeben werden. 


GOTO saiiigai RITTER 


Verzweigt zur Angegebenen Programmzeile. 


Angaben: Zeilennummer 


Syntax: GOTO 1000 


GRAPRIC sis RBB ERENENRRTN 


Aktiviert einen der möglichen Grafikmodi beziehungs- 
weise Textmodi. Einzelheiten in Lektion 14. 


OS HAPE RUERERRTSERRENERE TEE TR 


Eine als Zeichenkette gespeicherte binäre Bildinforma- 
tion wird auf dem Grafikbildschirm ausgegeben. (Wird ın 
diesem Buch nicht behandelt.) 


IF/THEN/ ELS E BaammeESEEEEEEEEEEEEEEEEEREEEEEN 


Überprüft das Zutreffen einer Bedingung und führt je 
nach Ergebnis dieser Prüfung frei wählbare Befehle, An- 
weısungen oder Funktionen aus. 


Angaben: Gleichung oder Ungleichung, 
Befehle/Anweisungen/Funktionen 


Syntax: IF A=123 THEN GOTO 100 
IF AS="!TEST" THEN PRINT "OK“ 
IF A=123 THEN GOTO 100 ELSE PRINT 
UFALSCH! 
l. Wenn es zutrifft, daß der Variablen A 
der Wert 123 zugewiesen ıst, dann ver- 
zweigt das Programm zur Zeile 100. 
2. Wenn A$ die Zeichenkette »TEST« zuge- 
wıesen wurde, wird auf dem Bildschirm 
das Wort »OK« ausgegeben. 3. Wenn der 
Wert von Variable A gleich 123 ıst, dann 
verzweigt das Programm zur Zeile 100; 
wenn nıcht, wırd das Wort »FALSCH« aus- 
gegeben. 


Bemerkung: IF... THEN-Anweisungen können mit boole- 
schen Operatoren verknüpft werden. Beı- 
spiel: IF A=123 AND A$='"TEST' THEN 
GOTO 100. In diesem Fall wird nur zur 
Zeile 100 verzweigt, wenn beide Bedin- 
gungen zutreffen. 


INPUT Tai 


Erlaubt die Eingabe von numerischen Werten oder einer 
Folge von Zeichen innerhalb eines Programmablaufs. 


Angaben: Variablen 
Syntax: INPUT A 
INPUT A$ 


INPUT "GEBEN SIE EINE ZAHL EIN";A 
Erwartet im ersten Fall dıe Eingabe einer 
Zahl, im zweiten Fall ein Zeichen oder eine 
Zeichenkette. Im dritten Fall wird dıe Eın- 
gabeerwartung mit der Ausgabe eines 
Hilfstextes verbunden. 


Bemerkung: Zeichenketteneingaben dürfen kein Kom- 
ma enthalten. Dezimalwerte müssen durch 
Punkt, nicht durch Komma gekennzeichnet 
werden. 


INPUT H RIREIIS RER EETER ZB ERMIEN ITRURSTEDRENSSNE 


Liest einen numerischen oder alphanumerischen Wert 
von einem Peripheriegerät (Diskettenlaufwerk). 


Angaben: Datenkanalnummer, Varlable 


Syntax: INPUT#1,A$ 
Liest über Datenkanal 1 eine Zeichenkette 
ein und weist ihren Wert der Variable A$ 
zu. 


Bemerkung: Nurin Verbindung mit OPEN# wirksam. 


LOCATE REED EENRIIENDRRERERON 


Positioniert in hochauflösender oder mittlerer Grafik den 
nicht sichtbaren Grafikcursor an eine bestimmte Bild- 
schirmposition. 


Angaben: x-Koordinate,y-Koordinate 
Syntax: LOCATE 20,100 


Bemerkung: Einzelheiten in Lektion 14. 


MOVSPR BEREITETE BREITEN RER ERE 


Bewecgt eine Sprite-Figur in wählbarer Geschwindigkeit 
über den Bildschirm. Einzelheiten in Lektion 14. 


ON... COTO/GOSU BD gusmiEEEEHEEEEEEEEEEEEEEEN 


Verzweigt zu der Programmzeile, deren Zeilennummer 
hinter GOTO/GOSUB an der Stelle steht, die dem Wert 
der hinter ON stehenden Variablen entspricht. 


Angaben: 


Syntax: 


Bemerkung: 


Variable, Programmzeile 


ON A GOTO 100,200, 300 

ON A GOSUB 1000,2000, 3000 

Wenn der Wert von A gleich | ist, ver- 
zweigt das Programm zur Zeile 100 bezie- 
hungsweise 1000. Wenn der Wert von A 
gleich 2 ıst, zur Zeile 200 beziehungsweise 
2000... 


Wird ın der Regel nach einer INPUT- oder 
GETKEY-Anweisung eingesetzt. 


OPEN # ERNEUTEN NEN ERNIGETENER A 


Öffnet den Datenkanal zu einem Peripheriegerät (Disket- 
tenlaufwerk, Drucker). 


Angaben: 


Syntax: 


Bemerkung: 


Datenkanalnummer, Geräteadresse, 
Sekundäradresse, bei Diskettenbetrieb 
auch Dateiname 


OPEN# 1,42 

OPEN# 1,8,15,"DATEI* 

Öffnet im ersten Fall eine Datenleitung 
zum Drucker, im zweiten Fall unter dem 
Dateinamen »DATEI« eine Datenleitung zur 
Diskettenstation. 


Einzelheiten in Lektion 11. 


PAINT ea EB AREENTRINTEIREIEN 


Füllt ın hochauflösender oder mittlerer Grafik eine 
Fläche mit Zeichen- oder Hintergrundfarbe aus. Einzel- 
heiten ın Lektion 14. 


PLAY ERRANG 


Spielt eine frei wählbare Tonfolge. Einzelheiten in Lektion 


16. 


POKE FREENET IN 


Weist einer Speicherstelle des RAM einen numerischen 
Wert zwischen O und 255 zu. Einzelheiten in Lektion 18. 


PRINT BEEESEnEDDNGEBERRDIEIIERSERERDINERTRORERENNE 


Schreibt einen numerischen oder alphanumerischen 
Wert auf den Bildschirm oder ein Peripheriegerät. 


Angaben: Werte, Zeichen oder Varlablen 


Syntax: PRINT 1 
PRINT 1,1 
PRINT 151 
PRINT #TEST“ 
PRINT A,A$ 
Bei Eingabe eines Kommas wird der nach- 
folgende Wert an der nächsten definierten 
Tabulatorstelle ausgegeben; beı Eingabe 
eines Semikolon erscheinen die Werte un- 
mittelbar hintereinander. 


Bemerkung: Die Ausgabe an ein Peripheriegerät er- 
folgt nur bei Anwendung von CMD. 


PRINT #H ERROR NEON SEE SR EEE 


Wie PRINT, jedoch werden numerische oder alphanume- 
rische Werte über eine angegebene Datenleitung an eın 
Peripheriegerät gesandt. 


Angaben: Datenkanalnummer, Werte 
Syntax: PRINT # 1, "TEST" 
PRINT#1,A 


Bemerkung: Nur wirksam ın Verbindung mit OPEN#. 


PRINT USING  EBERBIENDSNEURERBNEREARBEEDEKEENERERNTERREREEARREEGEN 


Formatiert numerische oder alphanumerische Werte beı 
der Ausgabe auf dem Bildschirm. Einzelheiten im Begleit- 
buch zum Commodore 128 auf den Seiten 4-88 bis 4-93. 


READ RRARERINSEDUNSIDERENIEITIENIRREIIIERT 


Liest Daten aus einer DATA-Anweisung. 


Angaben: Variablen 

Syntax: READ A 
READ A,B,D 
READ A,A$ 


Im ersten Fall wırd ein numerischer Wert 
gelesen und der Varlablen A zugewiesen; 
im zweiten Fall werden drei numerische 
Werte gelesen; im dritten Fall ein numerl- 
scher und ein alphanumerischer Wert. 


Bemerkung: Nach dem Lesevorgang gelten dıe Werte 
der DATA-Anweisungen als abgearbeitet 
und können nur mit RESTORE für einen 
weiteren Lesevorgang aktiviert werden. 


RECORD # BaSianENEEBEERONBEINN NUR NARBEN RESORT 


Positioniert den Schreib-/Lesekopf des Diskettenlauf- 
werks auf einen bestimmten Datensatz einer Relativen 
Datei, wahlweise auch auf ein bestimmtes Byte innerhalb 
eines Datensatzes. Einzelheiten in Lektion 17. 


REM. RRNESeEERBERSEIRREZRSISE REN GEBIETES 


Erlaubt die Kommentierung innerhalb von Programmzei- 
len. Alle Texte, die einer REM-Anweisung folgen, wer- 
den vom Betriebssystem ignoriert, das heißt nıcht auf 
möglıche Ausführung von Anweisungen hin untersucht. 


Syntax: REM 
REM UNTERPROGRAMM DRUCKER 
rem aenderungen 


Bemerkung: REM-Anweisungen dürfen keine 
Umlaute und keine mit [SHIFT] 
eingegebenen Zeichen enthalten. 


REN AM E/ anRCUNERa NEIGEN BERGER 


Erlaubt dıe Umbenennung eines Dateinamens ım Inhalts- 
verzeichnis einer Diskette. 


Angaben: bisheriger Name TO neuer Name 


Syntax: RENAME "KARTEI" TO "DATENBANK" 


RESTORE RE NIEMZERNDEANZEEDREIBRI NEIN 


Erlaubt das mehrfache Lesen von DATA-Werten. 


Angaben: keine oder Zeilennummer 


Syntax: RESTORE 
RESTORE 2000 
Im ersten Fall werden die Werte der 
DATA-Anweisungen Im gesamten Pro- 
gramm reaktiviert, im zweiten Fall alle ab 
Zeile 2000 auftretenden DATA- 
Anweisungen. 


RRECG RAS EIERN NRRRNEN 


Variablenwerte aus einem Maschinenspracheunterpro- 
gramm können in BASIC weiterverarbeitet werden. Wird 
in diesem Buch nicht behandelt. 


SCALE RER EEE 


Verändert den Bildschirmpunktemaßstab in hochauflö- 
sender oder mittlerer Grafik. 


Angaben: SCALE-Modus ein/aus und wahlweise 
Maßstab 


Syntax: SCALE 1 
SCALE 1,750,500 
SCALE O 
l. Schaltet den Grafikbildschirm auf 1023 
mal 1023 Bildschirmpunkte um (Werte sınd 
voreingestellt). 2. Schaltet den Grafikbild- 
schirm auf 750 mal 500 Punkte um. 
3. Schaltet die SCALE-Anweisung aus 
(Normalmodus). 


Bemerkung: Durch SCALE wird das Bildschirmraster 
nicht tatsächlich verfeinert, sondern ledig- 
lich die internen Berechnungen für die 
Bildschirmdarstellung auf einen anderen 
Maßstab abgestimmt. 


SCNCLR EREIREREPERERUREID TRENNEN RRERTNBENERT 


Löscht den Bildschirm. 


Angaben: keine oder Spezifikation des Bildschirms 
(0 = 40 Zeichen, 1 = hochauflösende 


Grafik, 2 = hochauflösende Grafik mit 
Textfenster, 3 = mittlere Grafik, 4 = mittle- 
re Grafik mit Textfenster, 5 = 80 Zeichen) 


Syntax: SCNCLR 


SOUND RRRSIIRAIEITENATTE EERETENAINERTERETE 


Erzeugt Toneffekte. Einzelheiten in Lektion 16. 


SPRCOLOR REES RE TER 


Weist Sprite-Figuren eine Farbe zu. Einzelheiten in Lek- 
ton 18, 


SPRITE BEREITEN TIEREN 


Ermöglicht die Darstellung von Sprite-Figuren. Einzelhei- 
ten ın Lektion 15. 


SPRSA V REINER ELENA EEE REES 


Sichert die Daten aus dem Punktraster von Sprite- 
Figuren. Einzelheiten in Lektion 15. 


SSH APE BBRERRINETEIENEEERTEEEETERET REN ERIERET 


Weist einer Zeichenkette binäre Bildinformationen zu. 
Wird ın diesem Buch nicht behandelt. 


STOP BENENNEN 


Unterbricht den Ablauf eines Programms. 
Syntax: STOP 


Bemerkung: Ein durch STOP unterbrochenes 
Programm kann mit CONT fortgesetzt 
werden. 


SYS BREITET EREERTEETRERENERTINRENTIRRN 


Ruft ein Maschinenspracheunterprogramm auf. Wird in 
diesem Buch nicht behandelt. 


TRA Pia 


Verzweigt beim Auftreten eines Fehlers zu einer angege- 
benen Zeilennummer. 


Angaben: Zeilennummer 


Syntax: TRAP 1000 
Beim Auftreten eines Fehlers im Pro- 
grammablauf wird die Ausführung ın Zeile 
1000 fortgesettzt. 


VO L ssssaiii SR ASBDIEIREEERR ONE 


Definiert die Lautstärke für eine PLAY- oder SOUND- 
Anweisung. 


Angaben: Lautstärkenwert von 0 bis 15 
Syntax: VOL 7 


Bemerkung: Die VOL-Anweisung wird für alle drei 
Stimmen ausgeführt. 


WIDT F sin ERRANG RENNER 


Erlaubt in hochauflösender oder mittlerer Grafik das 
Zeichnen in doppelter Linienstärke. 


Angaben: Wert 1 für normale und 2 für doppelte 
Linienstärke 
Syntax: WIDTH 2 


WINDO W air RER REGNET 


Definiert einen Teilbereich des Bildschirms für Zeichen- 
ausgabe. 


Angaben: x/y-Koordinate für linke obere Ecke, 
x/y-Koordinate für die rechte untere Ecke 
des Fensters, Angabe für Löschen des 
Fensters 


Syntax: WINDOW 5,0,25,10,1 
WINDOW 5,0,25,10 
l. Ein Bildschirmteilbereich von Spalte 5, 
Zeile O0 bis Spalte 25, Zeile 10 wird für Zer- 
chenausgabe reserviert und durch die An- 
gabe 1 gelöscht. 2. Wie vorher, jedoch 
bleibt der augenblickliche Text des Bild- 
schirms ım Teilbereich erhalten. 


Lektion 21 


Zusammenfassung: 
BASIC-Funktionen 


In dieser Lektion werden alle BASIC-Funktionen des 
Commodore 128 ın alphabetischer Reihenfolge aufge- 
führt und deren Änwendungsmöglichkeiten kurz be- 
schrieben. Aufgeführt sind auch solche Funktionen, die ın 
den vorhergehenden Lektionen keine Verwendung fan- 
den. 


ABS EREREIREBRENEERETRESEENTEHIRGRTNZEREREDURBEENLNERRRERENDSEAG KOENNEN DEINER 


Liefert den absoluten Wert numerischer Daten, also den 
Wert ohne Vorzeichen. 


Angaben: numerischer Ausdruck 
Syntax: ABS(-2) 

ABS(Y) 
Beispiel: PRINT ABSC2) 
Ergebnis: 2 


AST BRSERERRENEE BBRIEBNRSNES ERS ERROR EMO LSHEIRERNBRB SEASONS RNIT 


Liefert den ASCII-Code eines Zeichens oder des ersten 
Zeichens einer Zeichenkette. 


Angaben: Zeichenkette oder Varlable 
Syntax: ASC("An) 

Beispiel: X=ASCC'A’):PRINT X 
Ergebnis: 65 

Beispiel: PRINT ASCC TEXT") 


Ergebnis: 84 


ATNEERIIITIEDEN EIERN 


Berechnet den Arcustangens eines im Bogenmaß ange- 
gebenen Winkels. (Ist ein Winkel im Gradmaß gegeben, 
so erhält man daraus durch Multiplikation mit 211/360 das 
Bogenmaß.) 


Angaben: numerischer Ausdruck 
Syntax: ATN(3) 

ATN(X) 
Beispiel: PRINT ATN(10) 


Ergebnis: 1.47112768 


BUMB 22ER EREIERRIRDBRRSSERRNENREIBARNIERN 


Liefert die Nummer einer Sprite-Figur, wenn sie mit el 
nem anderen Sprite oder mit Bildschirmdaten kollidiert 
1st. 


Angaben: Variable 
Syntax: BUMB(X) 


Der Variablen X wird die Nummer des be- 
treffenden Sprite zugewiesen. 


CHRISTEN NENNEN 


Erlaubt dıe Operation mit einem ASCII-Code (0 bıs 255). 
Wird meist verwendet, um mit Sonderfunktionen, die 
über die Tastatur nıcht oder nur umständlich erreichbar 
sind, zu arbeiten. 


Angaben: numerischer Wert oder Varlable 
Syntax: CHR$(65) 

CHR$(X) 
Beispiel: PRINT CHR$(65) 


Ergebnis: A 
Beispiel: X=65:X$=CHR$CX):PRINT X$ 
Ergebnis: A 


LOS HERREN RER EN RERTRNTERDERINEN 


Berechnet den Cosiınus eines Wertes. Die Winkelangabe 
muß ım Bogenmaß erfolgen (vergleiche ATN). 


Angaben: 
Syntax: 


Beispiel: 


Ergebnis: 


numerischer Ausdruck 
COS(10) 

COS(X) 

PRINT COS(25.1) 
999464054 


DECO BERNER ESSENER Ra 


Berechnet den Dezimalwert einer Hexadezimalzahl. 


Angabe: 


Syntax: 


Beispiel: 
Ergebnis: 
Beispiel: 


Ergebnis: 


hexadezımale Zeichenkette 
DEC("A®) 

DEC(A$) 

PRINT DECC'A’) 

10 (A hex entspricht dezımal 10) 
A$="FF'’:PRINT DEC(A$) 

255 (FF hex entspricht dezimal 255) 


ERRS EEIRSBERESH RR) DLR SARDINIEN 


Liefert den Hilfstext zu einem speziellen Fehlercode. 


Angaben: 


Syntax: 


Fehlercode 
ERR$ ( 10) 
ERR$ ( ER) 


Liefert ım ersten Fall den Text zu Fehler- 
code 10 (NEXT WITHOUT FOR) und ım 
zweiten Fall den Text des Fehlercodes, 
der als letztes ın der Systemvarlablen ER 
registriert wurde. 


EX P IRBEURBIRERRRSEESERSERKSENENKORNGTER TRENNEN BERNGRAETNSAARNERETN 


Berechnet Potenzwerte zur Basıs e=2,7182818284588. 


Angaben: 


Syntax: 


Beispiel: 


Ergebnis: 


numerischer Ausdruck 
EXP(2) 

EXP (X) 

PRINT EXP(2) 
7.389056 


Bemerkung: Werte größer als 88.02969191 können 


nıcht exponiert werden, der Computer 
gibt einen OVERFLOW ERROR aus. 


FRE BERKER ERENTO TRIERER 


Ermittelt den noch freien Speicherplatz ım RAM (Arbeits- 
speicher des Computers). 


Angaben: 


Syntax: 


Beispiel: 
Ergebnis: 
Beispiel: 


Ergebnis: 


0 oder 1, je nach Speicher-BANK 
FRE(O) 

FRE(X) 

PRINT FRE(0) 

58109 

PRINT FRE(O)+FRE(l) 


122365 (kompletter freier Speicher der 
BANKSs O und 1 beim Einschalten des 
Systems) 


HEXS BREITE ETERUNNETEREREREBTENERN 


Schreibt eine Dezimalzahl ın hexadezimale Darstellung 


um. 
Angaben: 
Syntax: 


Beispiel: 
Ergebnis: 
Beispiel: 


Ergebnis: 


numerischer Wert oder Varlable 
HEX$(10) 

HEX$(X) 

PRINT HEX$(10) 

000A 

X=255:PRINT HEX$09 

OOFF 


INSTR EEE RS REDEN REN 


Durchsucht eine Zeichenkette nach einem Zeichen oder 
einer Zeichenkette und liefert die Position des Auftretens 
als numerischen Wert. 


Angaben: 


die zu durchsuchende Zeichenkette,die 
gesuchte Zeichenkette, Startposition, ab 
der die Zeichenkette durchsucht werden 
soll 


Syntax: 


Beispiel: 
Ergebnis: 


Beispiel: 


Ergebnis: 


INSTR("FRANKFURT! ‚uAu) 
INSTR(D$,X$, 3) 


Ohne Angabe der Startposition wırd der 
voreingestellte Wert | angenommen. Im 
zweiten Fall wird D$ ab dem dritten Zei- 
chen nach der Zeichenkette durchsucht, 
die X$ zugewiesen wurde. 


X=INSTRÜ'FRANKFURT', A"):PRINT X 
© 


10 D$="FRANKFURT':X$="FURT” 
20 X=INSTR(D$,X$,3):PRINT X 


6 


INT RERENSERE SERIEN DSH EHIRKASENERNEANIET 


Liefert die nächstkleinere ganze Zahl. 


Angaben: 


Syntax: 


Beispiel: 
Ergebnis: 
Beispiel: 


Ergebnis: 


Wert 

INT(13.55) 

INT (X) 

PRINT INT(13.55) 
13 

PRINT INT(-3.55) 
-4 


JO TY aa LANE 


Ermittelt die Stellung des Steuerknüppels, stellt fest, ob 
der Knopf des Joysticks gedrückt ıst (wird rechts am 
Computer angeschlossen) und ermöglicht damit dıe Be- 
wegung von Figuren oder die Auswahl von Menüpunk- 


ten. 
Angaben: 
Syntax: 
Beispiel: 


Ergebnis: 


Variable 
JOY(xX) 
PRINT JOY(&X) 


0 = Mittelstellung l = oben 
2 = rechts oben 3 = rechts 
4 = rechts unten 5 = unten 
6 = links unten / = Iinks 


8 = links oben 128 bis 136 = 
Knopf gedrückt 


Bemerkung: Im dritten Teil des Buches findet sıch eine 
universelle Routine zur Steuerung von FI- 
guren mittels Joystick. 


LEFT$ BRETTEN ERIINDEN 


Erlaubt, eine beliebige Zeichenmenge vom Anfang einer 
Zeichenkette abzutrennen. 


Angaben: Zeichenkette, Anzahl der abzutrennenden 
Zeichen 

Syntax: LEFT$("FRANKFURT", 5) 
LEFT$(A$,5) 

Beispiel: PRINT LEFT$C’FRANKFURT'',5) 


Ergebnis: FRANK 


LEN BRBBRERRNTRERRSRTRERERERISCHISERETENBERSRSUN SENT REN 


Ermittelt die Anzahl von Zeichen in einer Zeichenkette. 


Angaben: Zeichenkette 
Syntax: LEN( "FRANKFURT" ) 
LEN(A$) 
Beispiel: PRINT LEN('FRANKFURT’') 


Ergebnis: 9 


LOG ERRESRERBEEISTEENRERERENIREENEERTENEREDERGEN NEN 


Liefert den natürlichen Logarithmus einer Zahl, das heißt 
den Logarithmus zur Basıs e=2,7182818284588. 


Angabe: numerischer Wert oder Varlable 
Syntax: LOG(10) 

LOG(X) 
Beispiel: PRINT LOG(9) 


Ergebnis: 2.19722458 


MD II IRRE 


Erlaubt, eine beliebige Zeichenmenge aus der Mitte 
einer Zeichenkette herauszutrennen. 


Angaben: Zeichenkette, von Zeichen, 
Anzahl der Zeichen 


Syntax: MID$("FRANKFURT", 3,5) 
MID$(X$,A,B) 
Beispiel: PRINT MID$C'FRANKFURT'‚3,5) 


Ergebnis: ANKFU 


PEEK RT EN STUNDEN RSRIRUIRERT ENTE 


Ermittelt den Dateninhalt einer Speicherstelle als Dezı- 
malzahl. 


Angaben: Speicherstelle 
Syntax: PEEK (1024) 

PEEK(X) 
Beispiel: PRINT PEEK(68535) 


Ergebnis: 4ob 


Bemerkung: Einzelheiten ın Lektion 18. 


PEN EBERLE 


Liefert die Bildschirmposition eines angeschlossenen 
Lichtstifts. Wird in diesem Buch nicht behandelt. 


IT ERRRSREERRES SER RENDITEN RER GRERUREIRENRTEENETERUNT 
Erlaubt das Rechnen mit dem n-Wert 3,14159269. 

Syntax: TT 

Beispiel: PRINT 212*1 

Ergebnis: 12.5663706 


Bemerkung: Das n-Zeichen ıst nur bei nıcht 
gedrückter ASCI/DIN-Taste zu 
erreichen. 


POT N II BIIRDITEARTORTERIDIH EN 


Enthält den Wert eines aktiven, angeschlossenen Dreh- 
reglers (werden wie Joysticks am Gerät angeschlossen). 


Angabe: 
Syntax: 
Beispiel: 


Ergebnis: 


Bemerkung: 


Varlable 
POT(X) 
PRINT POT&X) 


l bıs 4, je nach angeschlossenem 
Drehregler 


Drehregler haben heute kaum noch Be- 
deutung bei der externen Steuerung von 
Figuren. 


RC LR ERREGER TIEREN UNE 


Ermittelt den Farbcode einer Farbauelle. 


Angabe: 
Syntax: 
Beispiel: 


Ergebnis: 


Farbauelle 

RCLR(X) 

PRINT RCLR(X) 

Farbcode (Wert zwischen 1 und 16) 

Als Farbquelle können angegeben werden: 


0 = Hintergrund (40-Zeichenmodus) 

l = Vordergrund hochauflösende 
Grafik 

2 = mittlere Grafik |. Farbe 

3 = mittlere Grafik 2. Farbe 

4 = Rand (40-Zeichenmodus) 

5 = Zeichen (80er Modus) 

6 = Hintergrund (80-Zeichenmodus) 


KIBIGHE: 0 N a u 


Ermittelt die Bildschirmposition des nıcht sıchtbaren Gra- 
fikcursors und den Farbcode der Bildschirmposition. 


Angaben: 


Syntax: 


Bemerkung: 


0 für x-Koordinate, 1 für y-Koordinate, 2 für 
Farbcode 


RDOT(X) 


RDOT kann auch ın einer DRAW-An- 
weisung verwendet werden, wobei zum 
Beispiel die Angabe von RDOT(0) eine 
Linie zur aktuellen Position des Grafik- 
cursors zieht. 


ROR si REN 


Ermittelt den Systemcode des aktuell aktiven Grafik- 


modus. 
Angaben: 
Syntax: 
Beispiel: 


Ergebnis: 


Variable 
RGR(X) 
PRINT RGR(X) 


zum Beispiel ım 40-Zeichenmodus = 0, im 
80-Zeichenmodus = 5 


RIGHTS news ep ya EEE 


Erlaubt eine beliebige Zeichenmenge vom Ende einer 
Zeichenkette abzutrennen. 


Angaben: 


Syntax: 


Beispiel: 


Ergebnis: 


Zeichenkette, Anzahl der abzutrennenden 
Zeichen 


RIGHT$("FRANKFURT",4) 
RIGHT$(D$,A) 

PRINT RIGHT$C'FRANKFURT'' 4) 
FURT 


RN T) BRERERRRERRUVES ASPIRE EAN RCRURRENTETGURERNRAENG 


Liefert eine Zufallszahl zwischen O und |. 


Angaben: 
Syntax: 
Beispiel: 
Ergebnis: 


Bemerkung: 


Varlable 

RND(X) 
X=RNDA:PRINT X 
zum Beispiel .76883421 


Um Zufallszahlen ın Glücksspielsimulatio- 
nen einsetzen zu können, kann es notwen- 
dig sein, die Ergebnisse von RND zu multi- 
plizieren und dann gegebenenfalls noch 
die Funktion INT anzuwenden. 

Beispiel: X = 36*RND(X):PRINT INT). 


RSPCOLOR EIER NIEREN ARE 


Ermittelt den Farbcode für eine Sprite-Figur. 


Angaben: 


Syntax: 


Beispiel: 


l für die erste Sprite-Farbe oder 2 für die 
zweite Sprite-Farbe 


RSPCOLOR(X) 
PRINT RSPCOLOR() 


Gibt den Farbcode für die erste Farbe 
einer Sprite-Figur auf dem Bildschirm aus. 


RSPPOS EEE EEE ZEREREDENI TEEN 


Ermittelt die x/y-Koordinate und die Geschwindigkeit 
einer Sprite-Figur. 


Angaben: 


Syntax 


Beispiel: 


Ergebnis: 


Sprite-Nummer,O für x-Koordinate,l für 
v-Koordinate, 2 für die Geschwindigkeit 


RSPPOS(1,0) 
RSPPOS(X,Y) 
PRINT RSPPOS(1,0) 


Liefert für Sprite-Nummer | die 
x-Koordinate (Bildschirmposition) 


RSPRITE WERE ERZEUGTE 


Gibt die durch SPRITE eingegebenen Werte aus. 


Angaben: 
Syntax: 


Attribute: 


Sprite-Nummer, Attribut 
RSPRITE(1,0) 
RSPRITE(X,Y) 


0 (liefert 0, wenn Sprite ınaktıv, 

sonst 1) 

l (liefert Farbcode des Sprite) 

2 (liefert OD, wenn Sprite Priorität über 
Vordergrund hat, sonst 1) 

3 (liefert |, wenn Sprite in x-Rıichtung 
doppelt breit dargestellt ıst, sonst 0) 

4 (liefert 1, wenn Sprite ın y-Rıchtung 
doppelt breit dargestellt ıst, sonst 0) 

5 (liefert 1, wenn Mehrfarbenmodus 
aktıv Ist, sonst 0) 


RWINDO VER a 


Ermittelt die mit WINDOW definierten Bildschirmbe- 
reichswerte. 


Angaben: 0 für höchste Zeilennummer, 1 für höchste 
Spaltennummer, 2 für Angabe des Bild- 
schirmmodus (40- oder 80-Zeichen- 


darstellung) 
Syntax: RWINDOW(X) 
Beispiel: PRINT RWINDOWC) 
Ergebnis: 40 oder 80, je nach Bildschirmmodus 


SGN ERBETEN RR ER EEE 


Ermittelt das Vorzeichen (Signum) eines numerischen 
Wertes. Ist ein Wert größer 0, wird l ausgegeben, Ist er 
gleich 0, wird 0 ausgegeben, ist er kleiner 0, wird -1 aus- 
gegeben. 


Angaben: Variable 


Syntax: SGN(X) 
Beispiel: %= 1:PRINT SGN) 
Ergebnis: l 


Bemerkung: Alle numerischen Werte haben, wenn 
nıcht anders definiert, unsichtbar ein Vor- 
zeichen. Daher erscheinen numerische 
Werte ın PRINT-Anweisungen stets mit 
einem Leerzeichen an erster Stelle. 


SIN BEREITEN BRENNT RAT 


Ermittelt den Sinus eines im Bogenmaß gegebenen Win- 
kels (vergleiche ATN). 


Angaben: numerischer Wert oder Varlable 
Syntax: SIN(5) 

SIN(X) 
Beispiel: PRINT SIN(6) 


Ergebnis: -.95892242 


SPC Aka NER 


Fügt ın PRINT-Anweisungen eine Anzahl von Leerstellen 
zwischen zwei Ausgaben. 


Angaben: Anzahl der Leerstellen (0 bis 255) 


Syntax: SPC(10) 
SPC(X) 
Beispiel: PRINT '"ANFANG'SPC6)'ENDE’' 


Ergebnis: ANFANG ENDE 


SOR HIER ERGIERERNEIERERURBITELENNGSERUNEISERRNITEREBEN NER 


Errechnet die Quadratwurzel eines Wertes. 


Angaben: numerischer Wert oder Varlable 
Syntax: SQR(2) 

SOR(X) 
Beispiel: PRINT SOR(4) 


Ergebnis: 2 


STRE MEHRERE LEERE NENNEN EINEERLONRORENENETEARGBEPRTERBRISRT 


Erlaubt die Bearbeitung eines numerischen Wertes als 
Zeichenkette. 


Angaben: numerischer Wert oder Variable 
Syntax: STR$(65) 

STR$(A) 
Beispiel: X$=STR$(65):PRINT X$ 


Ergebnis: 65 


Der ursprünglich numerische Wert 65 
wird durch STR$ in eine Zeichenkette um- 
gewandelt. X$ stellt die Zeichen »65« dar, 
nıcht den Wert 65. 


TAB SB EIER EEE ABLASRETRENNIRARONERNSEEREERIR TERN 


Setzt den Cursor oder den Ausführungsort einer PRINT- 
Anweisung ın eine freı wählbare Bildschirmspalte. 


Angaben: Bildschirmspalte (0 bis 40 bzw. 80) 


Syntax: 


Beispiel: 
Ergebnis: 


Bemerkung: 


TAB(5) 

TAB(X) 

PRINT "ANFANG" TAB($)" ENDE" 
ANFANG ENDE 


Der Unterschied zu SPC besteht darın, 
daß bei SPC die Zwischenräume gelöscht 
(mit Leerzeichen gefüllt) werden. Außer- 
dem bezieht sich TAB ımmer auf den Zer- 
lenanfang, während SPC die angegebene 
Spaltenzahl dynamisch verarbeitet. 


TAN Sei ERAHNEN 


Ermittelt den Tangens eines ım Bogenmaß gegebenen 
Winkels (vergleiche ATN). 


Angaben: 
Syntax: 


Beispiel: 


Ergebnis: 


numerischer Wert oder Varlable 
TAN(5) 

TAN(X) 

PRINT TAN) 

-3.380515 


USER NBRBRERREAGRSENBERORREESEN EN RLRERRARRIGKGLRNTNT 


Verzweigt ın ein Maschinenspracheunterprogramm und 
kehrt nach der Ausführung zu BASIC zurück. Wird ın die- 
sem Buch nicht behandelt. 


VAL Lr BIBEHRERBIBERSRCREISSINEKENEBN LUNGEN DRK 


Erlaubt die Bearbeitung einer Zeichenkette als numeri- 


schen Wert. 
Angaben: 


Syntax: 


Beispiel: 


Ergebnis: 


Zeichenkette oder Varlable 
VAL 165") 

VAL(A$) 

X = VALC'65’):PRINT X 

65 


Die Zeichen »65« werden ın die Zahl 65 
umgewandelt und der Variablen X 
zugewiesen. 


XOR BREI 


Erlaubt die logische Verknüpfung von Binärzahlen im Sın- 
ne der booleschen Algebra. Das heißt, das Ergebnis eı- 
ner Verknüpfung ist binär 1, wenn die verglichenen Wer- 
te unterschiedlich sind (entweder 0 und 1 oder 1 und O). 
Im anderen Fall — wenn also beide verglichenen Werte 
entweder 0 oder | sind — ıst das Ergebnis der Ver- 
knüpfung 0. 


Angaben: Wert 1, Wert2 
Syntax: XOR(1,2) 
XOR(X,Y) 


Die sogenannte Wahrheitstabelle der XOR-Funktion lıe- 
fert folgende Werte: 


X= wahr (]) Y=wahr (]) XOR-Wert = O 
X=wahr (|) Y= unwahr (0) XOR-Wert = | 
X = unwahr (0) Y=wahr (]) XOR-Wert = ] 
X = unwahr (0) Y=unwahr (0) XOR-Wert = O 


Beispiel: Die Werte 7 und 56 sollen logısch 
verknüpft werden. Bei der XOR-Funktion 
wird intern für Jeden Wert eine 8-Bit- 
Information generilert und anschließend 
verknüpft. 


PRINT XOkR«(7,56) 
Ergebnis: 63 


ofololoroılılı Binärcode von 7 
ojohilılı Fololo Binärcode von 56 
ofehhli ill Binärcode von 63 


Beispiel: Die Inhalte der Speicherstellen 45 und 46 
sollen logısch verknüpft werden. 


PRINT XOR(PEEK(45), PEEK(46)) 
Ergebnis: 29 


Lektion 22 


BASIC-Systemvarlablen 


In dieser Lektion werden alle BASIC-Systemvariablen 
des Commodore 128 ın alphabetischer Reihenfolge auf- 
geführt und deren Anwendungsmöglichkeiten beschrie- 
ben. Aufgeführt sind auch Systemvarilablen, die ın den 
vorhergehenden Lektionen keine Verwendung fanden. 


DS/DS$ REBEEEREIERINEERRRNZENIERUREEENEENN 


Geben beim Auftreten eines Fehlers ım Diskettenbetrieb 
einen spezifischen Fehlercode (DS) und den dazuge- 
hörenden Text (DS$) aus. 


Syntax: DS 
DS$ 
Beispiel: PRINT DS;DS$ 
Ergebnis: Beim Auftreten eines Fehlers ım Disketten- 


betrieb erfolgt dıe Ausgabe des Fehlerco- 
des und des dazugehörenden Textes, zum 
Beispiel »71, DIRECTORY ERROR, 18, 1«. 
Die Zahlen beziehen sıch dabeı auf die 
Spur und den Sektor, ın denen der Fehler 
festgestellt wurde. 


Bemerkung: Es gibt insgesamt 73 Fehlercodes 
(sehe Handbuch zum Diskettenlaufwerk, 
Seite 136 bis 143). 


EL, RR RE NEST NN REN 


Gibt die Nummer der Programmzeile aus, ın der ein Feh- 
ler festgestellt wurde. 


Syntax: EL 
Beispiel: X = El:PRINT X 
Ergebnis: 1000, wenn der Fehler ın Programmzeile 


1000 aufgetreten ist. 


ER ken RENNEN RTL 


Gibt den zu einer Fehlermeldung gehörenden Fehler- 
code aus. 


Syntax: ER 
Beispiel: IF ER=30 THEN GOTO 1000 
Ergebnis: Wenn im einem Programm ein SYNTAX 


ERROR (Code 30) gefunden wird, ver- 
zweigt das Programm zur Zeile 1000. Vor- 
aussetzung ist, daß zuvor mit TRAP eıne 
Nichtunterbrechung beim Auftreten eines 
Fehlers programmiert wurde. 


Bemerkung: Es gibt insgesamt 74 Fehlercodes ım 
BASIC-Programmablauf (siehe Handbuch, 
Kapitel 8). 


ST/STATUS 


Liefert den Inhalt der Speicherstelle, dıe den System- 
status des Rechners betreffend der letzten Eın-/Ausgabe- 
operation mit dem Kassettenspeichergerät (Datasette) 
speichert. 


Syntax: ST 


128 64 32 168 4 2 1 Dezımalwerte 


Beispiel: 
Status-Byte 


l = Zeitablauf beim Schreiben ın eine 
Datei 
= Zeitablauf beim Lesen einer Dateı 
4 = kurzer Datenblock 
8 = langer Datenblock 
16 = fataler Fehler (führt zum Ab- 
bruch) 
32 = Prüfsummenfehler 
64 = Dateiende 
128 = Bandende 


TLUTIM E aan 


Wird häufig fälschlich als interne »Uhr« bezeichnet. Dabei 
handelt es sich um zwei Speicherstellen (Low-Byte und 
High-Byte), dıe pro 60stel Sekunde (amerikanischer 
Systemtakt) ihren Wert um Eins erhöhen. 


Syntax: Ei 
Beispiel: 100 IF 'TI= 1000 THEN GOTO 2500 


Ergebnis: Sobald die Systemvarlable den Wert 1000 
erreicht hat, verzweigt das Programm zur 
Zeile 2500. Eine IF... THEN-Anweisung die- 
ser Art läßt sıch zum Beispiel in Computer- 
spielen einsetzen. 


TIM E$ RER EERANRNETOSETEIRRNDEINREETREREEIEBEECE KEANE 


Erlaubt dıe Abfrage oder Festlegung eines Zeitwertes, 
der intern chronologisch fortgesetzt wird. TIME$ laßt sich 
wie eine Uhr einsetzen, jedoch ist die Zeitgenauigkeit 
nıcht unbedingt mit einer echten Uhr gleichzusetzen. 


Syntax: TI$ 
Beispiel: T="201500" 
Ergebnis: Die Systemvarlable wird auf die Zeit 


20 Uhr 15 und 00 Sekunden festgelegt. 


Lektion 23 


Programmıertricks 


Im Gegensatz zu Programmiersprachen wie FORTRAN, 
PASCAL, COBOL oder C ıst BASIC keine sogenannte 
»Compilersprache«, das heißt BASIC-Programme können 
nach der Fertigstellung nıcht ohne weiteres ın Maschı- 
nensprache übersetzt (compiliert) werden. Dadurch ist 
die Ablaufgeschwindigkeit von BASIC-Programmen 
grundsätzlich langsamer als dıe von anderen Program- 
men. Trotzdem gibt es einige Programmierprinzipien, die 
auch ein BASIC-Programm in seiner Ablaufgeschwindig- 
keit steigern. Diesen Möglichkeiten widmet sıch die vor- 
lıegende Lektion. 


Kombinationsregel 


Sofern es die Programmstruktur erlaubt, sollten stets so 
viele Befehle, Anweisungen oder Funktionen wıe möglıch 
in einer Programmzeile zusammengefaßt werden. 


Günstig: 


10 for x=1 to 100:read d:print d:next x 
Ungünstig: 


19 iorx=1to IW 
20 read d 
30 print d 
40 next x 


Hierbei ıst Jedoch darauf zu achten, daß ın einer zusam- 
mengefaßten Programmzeile keine Verzweigungsbedin- 
gungen enthalten sınd, die den gewünschten Programm- 
ablauf verändern. Beispiel: 


10 for x=1to 100:1fa=1 then goto 200: read d:print 
d:next x 


In diesem Fall wırd die READ-Anweisung nur ausgeführt, 
wenn der Wert von a ungleich 1 ıst. 


Vanıablenregel 


Numerische oder alphanumerische Werte, die häufiger 
In einem Programm benutzt werden, sollten als Variablen 
definiert werden. Der Zugriff auf Variablenwerte erfolgt 
vom System aus schneller als der Zugriff auf Konstanten. 


Günstig: 


10 a$=''"Balkendiagramm’' 
20 print "Eingabe der Daten für das ';a$ 
30 print a$;'' wird berechnet.’ 


Ungünstig: 


10 print "Balkendiagramm'’' 
20 print "Eingabe der Daten für das Balkendiagramm’’ 
30 print "Balkendiagramm wird berechnet." 


Bei der Berechnung von Werten ist zu beachten, daß die 
Zuweisung einer Konstanten zu einer Varlablen schneller 
vollzogen wird als dıe Zuweisung eines Varlablenwertes 
zu einem anderen Varlablenwert. 


Günstig: 

10 a=3*9*3 
Ungünstig: 
0 a=b*c*qa 


Eine weitere Regel, die bei Verwendung von Varlablen 
zu beachten ıst, ergibt sich aus dem Umstand, daß der 
Computer lediglich die ersten beiden Zeichen von Varia- 
blennamen unterscheiden kann. Lange Varlablennamen 
belegen daher lediglich Speicherstellen und verlängern 
dadurch die interne Varlablenliste. 


Günstig: 
10 a= 10:b= 123:dn$ = "adressen 
Ungünstig: 


10 anfangswert= 10 
20 bedingung = 123 
30 dateiname$=""adressen’ 


Als letztes sollten Zählvarıablen beziehungsweise Varia- 
blen, deren Werte nur vorübergehend von Bedeutung 
sınd (zum Beispiel zum Feststellen, welcher Menüpunkt 
angesteuert wurde), stets wıederkehrend verwendet 


werden, anstatt für Jede derartige Operation einen neuen 
Varıablennamen zu wählen. 


Günstig: 


10 dım a(l5) 
20 for x=1 to 15:1nput "Wert eingeben:'; a(x):next x 
30 for x=1 to 10:print "Wert '"';x;’ = ";a (xX);next x 


Ungünstig: 


10 dım a(l5) 
20 for x=1 to 15:1nput "Wert eingeben:'; a(x):next x 
30 for y=1to 10:print "Wert '";y;' = ";a (y):next y 


In diesem Fall ıst es nicht sinnvoll, für dıe zweite FOR- 
.. NEXT-Anweisung eine neue Variable y zu wählen, weil 
x und y lediglich als Zählvarıablen dienen und daher für 
beide Schleifen ıdentisch sein können. 


Kommentarregel 


REM-Anweisungen helfen bei der Kommentierung von 
Programmen; durch sıe lassen sıch einzelne Programm- 
abschnitte übersichtlich voneinander abgrenzen und 
während der Bearbeitung leichter wiederfinden. Trotz- 
dem sollte man mit REM-Anweisungen so sparsam wie 
möglıch umgehen, weil der BASIC-Interpreter naturge- 
mäß Zeit benötigt, um eine Kommentarzeile als solche zu 
erkennen und die Ausführung mit der folgenden Zeile 
fortzusetzen. 


Günstig: 


lD rem unterprogramm datenausgabe 
20 for x=1 to 20:read a:print a:next x 


Ungünstig: 


10 Tor x=1 to 

20 rem unterprogramm datenausgabe 

30 read a:rem daten werden gelesen 

40 print a:rem daten werden ausgegeben 
DO next x 


IF... THEN-Regel | 


Bei einer Reihe von IF... THEN-Anweisungen sollten stets 
jene Bedingungen zuerst geprüft werden, die wahr- 
scheinlicher sınd als dıe übrigen. Nach diesem Prinzip 
sind zum Beispiel auch die Menüs des Datenverwal- 
tungsprogramms aufgebaut: Es ist wahrscheinlicher, daß 
bei einem Programmstart der Programmpunkt zum Ein- 
geben von Daten aufgerufen wird als der Aufruf zum Ab- 
bruch des Programms. Aus diesem Grund befindet sich 
der Auswahlpunkt zum Eingeben von Daten an erster 
Stelle und der zum Abbruch des Programms an letzter 
Stelle. 

Auch bei IF... THEN-Anweisungen mit booleschen Opera- 
toren sollten die Bedingungen, die am ehesten zutreffen 
können, als erste der IF-Anweisung folgen, weil hier- 
durch vermieden wird, daß selten zutreffende Bedingun- 
gen ständig mitüberprüft werden. 

Wenn es häufig möglich ist, daß der Wert von Variable a 
gleich 3 ist, dann sollte die Überprüfung dieser Bedin- 
gung vor der Überprüfung der Variable b stehen, die 
seltener den Wert 5 annımmt. In diesem Fall wäre folgen- 
des günstig: 


10 fa=3orb=5then.. 
Ungünstig: 
10 ifb=5ora=3then... 


Weiterhin können IF... THEN-Anweisungen in sinnzusam- 
menhängende Blöcke unterteilt werden, die nur dann 
vom BASIC-Interpreter abgearbeitet werden, wenn die 
Hauptbedingung zutrifft beziehungsweise nicht zutrifft. 


Günstig: Ungünstig: 


10 ıf bO then 70 lO ıfa=| then... 


20 ıf a=1| then... 
30 ıfa=2 then... 
40 ıf a=3 then... 
50 ıf a=4 then... 


60 goto... 


/0 if b=1 then... 
80 fe b=2 then... 
90 if b=3 then... 


20 ıf a=2 then... 
30 ıf a=3 then... 
40 ıf a=4 then... 


50 ıf b=| then... 
60 ıf b=2 then... 
/0 ıf b=3 then... 


80 goto... 


Im ersten Fall wırd der Abschnitt ab Zeile 70 nur 
überprüft, wenn der Wert von Varlable b größer 0 ıst. Im 
zweiten Fall werden grundsätzlich alle Zeilen abgearbeı- 
tet, auch wenn der Wert von b gleich 0 ıst und für den 
Programmablauf keine Bedeutung hätte. 


DATA-Regel 


Sehr häufig werden numerische oder alphanumerische 
Werte, die in DATA-Anweiısungen enthalten sind, nur ein- 
mal ın einem Programm eingelesen und dann weiterver- 
arbeitet. Da der Rechner beim Aufsuchen bestimmter 
Zeilennummern (Verzweigungsanweisungen) den Zähl- 
vorgang stets mit Zeile O startet, sollten Programmzeilen 
wie die nur einmal verwendeten DATA-Anweisungen ans 
Programmende gesetzt werden. Der Computer muß 
dann beim Durchsuchen des Listings nıcht ständig unnö- 
tige Programmzeilen bearbeiten. 


Günstig: 


10 dim a(l5) 

20 for x=1 to 1l5:read d:al(x)=d:next x 
30 goto... 

Ad ... 

BU u 

1000 data 1,2,3,4,5,6,7,8,9,1,2,3,4,5,6 


Ungünstig: 


10 dım a(15) 

20 data 1,2,3,4,5,6,7,8,9,1,2.,9,4,5,6 
su tor z=1|L to 15 

40 read d 

suE:iea ie 

BO next x 

10 9016... 

N 


Lektion 24 


Systemmanipulationen 


In Lektion 18, »PEEK und POKE«, wurde bereits darge- 
stellt, wie durch den Zugriff auf einzelne Speicherstellen 
umfassende Veränderungen ım Betriebssystem hervor- 
gerufen werden können. In dieser Lektion wird diese 
Praxis weiter vertieft und insbesondere auf die systemel- 
genen Maschinenspracheunterprogramme eingegangen, 
die ım Direktmodus oder von Programmebene aus durch 
SYS aktiviert werden können. 

Viele Systemmanipulationen erleichtern den Umgang mit 
dem Computer oder einzelne Anwendungen ganz erheb- 
lıch. Wenn man zum Beispiel einen Monitor mit 40- und 
80-Zeichendarstellung einsetzt und zwischen beiden Mo- 
dı hin und herschalten möchte, so muß man normaler- 
weise die 40/80-Zeichentaste drücken und über den 
[RESET]-Schalter den gewünschten Modus aktivieren. 
Dabeı geht jedoch ein eingegebenes Programm verlo- 
ren, weil das Drücken des [RESET]}-Schalters ın den Zu- 
stand nach dem Einschalten des Gerätes zurückführt. 
Es ıst Jedoch auch möglich, die Textmodi ohne diesen 
Nachteil zu wechseln. Hierzu wird folgende Eingabe vor- 
genommen: 


SYS 49194 [RETURN] 


Das Umstellen der 40/80-Zeichentaste kann dabei entfal- 
len. Man muß lediglich den RGB/PAL-Schalter des Monı- 
tors umstellen. Ein im Arbeitsspeicher des Computers 
befindliches Programm wird beim Wechseln ın den an- 
deren Modus nıcht gelöscht. Zum Rückwechseln wird die 
gleiche SYS-Eingabe gemacht. 

Wenn man ein einzelnes Zeichen in einer bestimmten 
Farbe auf den Bildschirm bringen will, sind hierfür nor- 
malerweise eine ganze Reihe von Definitionen ın der 
PRINT-Anweisung notwendig: Zeichenfarbe einschalten, 
Zeichen eingeben, Zeichenfarbe ausschalten. Einfacher 
geht es Jedoch mit dieser Eingabe: 


SYS 49155,Bildschirmcode des Zeichens, Farbcode 


Wird zum Beispiel SYS 49155,1,5 programmiert, erscheint 
ein »Ä« ın grüner Farbe. Der Vorteil dieser Methode ist, 
daß auch auf dem nıcht aktivierten Bildschirm (40 oder 80 
Zeichen) das programmierte Zeichen erscheint, so daß es 
beı einem Bildschirmwechsel mit SYS 49194 gleicher- 
maßen sıchtbar ist. Ein weiterer Vorteil ist, daß man ein 
Zeichen auch blinkend (nur im 80-Zeichenmodus), invers 
oder unterstrichen darstellen kann. Hıerzu muß dem üblı- 
chen Farbcode von 0 bis 15 (in BASIC von 1 bis 16) noch 
der Wert 16 (blinkend), 32 (unterstrichen) oder 64 (invers) 
zugerechnet werden. Zum Beispiel: 


SYS 49155,1,21 


Nun blınkt das »A« ın grüner Farbe. Mit SYS 49155,1,69 er- 
scheint es Invers, und mit SYS 49155,1,86 (entspricht 
5+16+64) blinkt das »Ä« auf dem invertierten Hin- 
tergrund. 

Da der commodoreeigene Bildschirmcode für die Zei- 
chen keın Standard ist und mit dem ASCII-Code nichts zu 
tun hat, ıst die Angabe für die Zeichendarstellung etwas 
gewöhnungsbedürftig. Es gibt jedoch auch hierfür eine 
Lösung. 


SYS 49164 , ASCII-Code 
SYS 50989, ASCII-Code 


Beide Eingaben stellen ebenfalls ein Zeichen dar, jedoch 
kann man hierbei den üblichen ASCII-Code angeben. 
Das erleichtert den Umgang mit der SYS-Routine. Die 
Farbinformation und Zusatzinformationen für Blinken und 
so weiter können hier allerdings nıcht gegeben werden. 
Für beide Bildschirmmodi gibt es jedoch noch eine an- 
dere Möglichkeit, Texte und Zeichen invertiert darzustel- 
len. Es handelt sıch hierbei um die Manipulation der 
Speicherstelle 243. Im normalen Darstellungsmodus 
nımmt diese Adresse den Wert O an, bei invertierter Dar- 
stellung den Wert 1. Man kann diese Werte durch POKE 
verändern. Zum Beispiel: 


POKE 243,1:PRINT "PROBETEXT" 


Das Wort »PROBETEXT« erscheint nun invertiert auf dem 
Bildschirm. Der Vorteil dıeser Methode besteht darin, 
daß nur die erste PRINT-Anweisung invertiert erscheint 
und die Speicherstelle danach automatisch wieder den 
Originalwert der aktivierten Darstellung annımmt. Man 
muß also nach einer Manipulation der Darstellung keine 


erneute Anweisung zum Zurücksetzen eingeben. Versu- 
chen Sıe zum Test folgendes: 


POKE 243,1:PRINT "PROBETEXT":PRINT "ZWEITENS" 


Als Ergebnis werden Sie lediglich das Wort »PROBE- 
TEXT« invertiert sehen, »ZWEITENS« erscheint normal. 
Ein anderes Problem, das im Zusammenhang mit der 
CHAR-Anweisung entsteht, ist die fehlende Möglichkeit, 
numerische Werte durch CHAR auf dem Bildschirm zu 
plazieren. Die Umwandlung durch die STR$-Funktion ist 
zwar möglich, jedoch umständlich. Mit folgender SYS- 
Routine ist es möglich, den Cursor auch ohne CHAR an 
einer bestimmten Bildschirmposition zu plazieren und 
dann eine PRINT-Anweisung folgen zu lassen, die sowohl 
einen numerischen Wert als auch einen alphanumeri- 
schen Wert ausgeben kann. 


SYS 49176,0,Zeile,Spalte 


Gibt man zum Beispiel SYS 49176,0,0,10:PRINT "KOPF- 
ZEILE" ein, erscheint dieser Text in Spalte 10, Zeile 0. Im 
Gegensatz zur CHAR-Anweisung muß hier also zuerst die 
Zeile definiert werden und dann erst die Spalte. 

Will man schließlich den Bildschirm wieder in seinen Ur- 
sprungszustand zurückversetzen, kann dies auch ohne 
RESET durch folgende Eingabe erreicht werden: 


SYS 49152 


Das gleiche ıst mit SYS 49275 möglich. 

Falls Sıe innerhalb eines Programms einmal den Tastatur- 
kontrollton [CONTROLJHG] ausgeben lassen wollen, ist 
stets eine etwas umständliche Programmierung notwen- 
dig, zum Beispiel: PRINT CHR$(7). Einfacher geht es, in- 
dem folgender Systemaufruf gegeben wird: 


SYS 51602 


Selbstverständlich können auch in SYS-Anweisungen an- 
stelle von numerischen Werten Varlablen verwendet 
werden. Dies erleichtert dıe Programmierung um eın 
weiteres. Zum Beispiel wäre für den Tastaturkontrollton 
folgendes möglich: 


G=51602:SYS G 


Im Zusammenhang mit der Tastatur sind noch zwei weı- 
tere Manipulationen möglich: Die sogenannte »Repeat«- 
Funktion der Tasten (Wiederholung der Zeichenausgabe 
bei fortwährend niedergedrückter Taste) und die »Repe- 
at«-Verzögerung (Zeitintervall, nach dem die Repeat- 
Funktion wirksam werden soll). Zuständig hierfür sınd die 
Speicherstellen 2594 und 2595. Der normale Inhalt der 
Adresse 2594 ıst 128, das heißt für alle Tasten gilt dıe Re- 
peat-Funktion. Will man dies abschalten, ist folgende An- 
weisung notwendig: 


POKE 2594 ,0 


Nun wird auch beı ständig niedergedrückter Taste eın 
Zeichen nur einmal dargestellt. Durch POKE 2594,128 
kann man dies wieder rückgängig machen. 

Der normale Wert der Speicherstelle 2595 ıst 3 (kann 
durch PEEK ermittelt werden). Durch 


POKE 2595 ,1 


läßt sıch dıe Zeitspanne bıs zum Einsetzen der Zeichen- 
wıederholung verkürzen; Jeder Wert über 3 vergrößert 
diese Zeitspanne. Wenn Sie zum Beispiel POKE 2595,50 
eingeben, dauert es nach Niederdrücken einer Taste et- 
wa zwei Sekunden, bis die Repeat-Funktion einsetzt. 
Eine andere Manipulationsmöglichkeit bezieht sıch auf 
dıe Funktionstasten [fl] bis [f8]. In den Speicherstellen 
4096 bıs 4105 wırd vom Betriebssystem eingetragen, wie- 
viel Byte dıe Belegung der Funktionstasten beansprucht. 
Setzt man eine dieser Byte-Zahlen auf O0, interpretiert das 
Betriebssystem die betreffende Funktionstaste als »nicht 
belegt« Man kann also durch eine POKE-Anweisung die 
Belegung löschen. Zum Beispiel: 


POKE 4097,0 


Hierdurch wird die Belegung von [f2] gelöscht. Man sollte 
jedoch diese Methode nur anwenden, wenn alle Funk- 
tıionstastenbelegungen gelöscht werden sollen, weil sıch 
nämlich beim Löschen von nur einer Belegung die Byte- 
Angaben für die übrigen Tasten verschieben können, 
wodurch eın Durcheinander entsteht. 

Es gibt natürlich noch wesentlich mehr Möglichkeiten für 
Systemmanipulationen; in der Regel erfordern sie Jedoch 
einen etwas größeren Programmieraufwand und genaue- 
re Kenntnisse der Speicherverwaltung des Commodore 
128. Im Rahmen dieses Buches können diese Zusam- 
menhänge nıcht vertiefend erläutert werden. 


TEIL < 


Einleitung 


Neben einzelnen Systemmanipulationen, mit denen man 
bestimmte Betriebszustände programmieren kann, be- 
nötigt man für die verschiedenen Spiel- oder Anwen- 
derprogramme häufig wiederkehrende Routinen, zum 
Beispiel eine Sortierroutine zum alphabetischen Ordnen 
von Texten wıe ım Datenverwaltungsprogramm aus dem 
ersten Teil dieses Buches. Solche Programmabschnitte 
sind universell und lassen sich auch in anderen Program- 
men verwenden. 

Dieser dritte Buchteil stellt nun eine Reihe von nützlichen 
Routinen und Utilities (Dienstprogramme) vor, die Sie zum 
Teıl täglich beı der Programmierpraxis einsetzen wer- 
den: zum Beispiel ein Farbwahlprogramm, mit dem sich 
auf Tastendruck die Vordergrund-, Hintergrund- und Zei- 
chenfarbe auswählen lassen, ohne daß umständliche 
COLOR-Anweisungen im Direktmodus einzugeben sind. 
Oder ein Druckerinstallationsprogramm, mit dem auf 
dem Bildschirm die gewünschte Schriftart, Randbreite 
und so weiter zum Ausdruck eingerichtet wird, ohne daß 
der Anwender endlose Fluchtsequenzen eingeben muß. 
Mit einigen anderen Routinen ist es möglich, einen bild- 
schirmidentischen Ausdruck (sogenannte Hardcopy) des 
hochauflösenden Grafikmodus zu erhalten oder die Funk- 
tıonstasten nach eigenen Wünschen mit Befehlen oder 
Anweisungen zu belegen, die sich abspeichern und vor 
jedem Arbeitsbeginn einladen lassen. 

Weiterhin werden einige kurze, aber nützliche Routinen 
vorgestellt, dıe sıch ın viele Programme als Unterpro- 
gramme einfügen lassen und bestimmte Funktionen aus- 
führen: zum Beispiel das Zentrieren von Texten in die 
Mitte des Bildschirms oder die effiziente Steuerung eines 
Bildpunktes (auch Sprite-Figur oder Zeichen) mit Hilfe ei- 
nes Joysticks. 

Alle Programme und Unterprogramm-Module befinden 
sıch — wie die Listings der einzelnen Lektionen zum Da- 
tenverwaltungsprogramm — unter ihren Namen auf der 
Begleitdiskette. Sıe können von dort jederzeit vor dem ei- 
gentlichen Programmieren in den Arbeitsspeicher des 
Computers geladen werden. 


Hardcopy 


Aus Lektion 14, »Hochauflösende Grafik«, wissen Sie, daß 
der Commodore die grafische Darstellung von Figuren 
oder Flächen in zwei verschiedenen Bildschirmauflösun- 
gen erlaubt. Allerdings lassen sıch geometrische Figuren 
oder ähnliches nıcht so einfach ausdrucken wie Texte 
und Zahlen. Trotzdem bieten Nadel-Matrixdrucker eine 
Möglichkeit, jedes gewünschte grafische Muster auszu- 
drucken (natürlich in Abhängigkeit von der Blattbreite). 
Der entsprechende Modus wird »Bıt Image Grafik« (engl. 
wörtlich »Stückbildgrafik«) genannt, im Deutschen zumeist 
»Einzelpunktgrafik« oder »Bitmustergrafik«. 

Das Prinzip ıst folgendes: Anstelle der üblichen Zeichen, 
die sıch aus einer bestimmten Punktmatrix zusammenset- 
zen, kann bei der Einzelpunktgrafik der Anschlag jeder 
Druckernadel für jede Spalte einer kompletten Zeile frei 
bestimmt werden. Auf diese Weise ıst es möglich, zum 
Beispiel das Bildschirmraster der hochauflösenden Gra- 
fik (320 mal 200 Punkte) punktidentisch auf den Drucker 
zu übertragen (natürlıch nur ın Schwarz/Weiß). Dieser 
Ausdruck wird allgemein als Hardcopy bezeichnet. 
Leider sınd die Fluchtsequenzen, die eine Einzelpunkt- 
grafik ermöglichen, nicht bei allen Druckern identisch; 
das folgende Listing ıst daher nicht universell für jedes 
Gerät gültig. Mit der Routine können jedoch zumindest 
alle IBM-, MSX-, EPSON-, STAR- und Centronis-Drucker 
angesteuert werden. 


e0 graphic 1,1 — | 

30 drau 1,0,0 to 319,0 to 319,189 to 8,1. 
393 to 0,0 2 

40 cirele 1,160,80,50,650,D,360,0,38078 


"s;chrs(Bb4);:chrSc.1): | 
10030 for j*D ta 319: lücate J,i:Mrrdott2 
) 


10040 print#4,chr$(n);:next J:print#4:ne 
“ei 

10050 print#4,chr$(27);”3”;chr$(36) 
10060 close +4 


Die Zeilen 10 bis 60 sind lediglich für einen Testausdruck 
bestimmt; das eingentliche Hardcopy-Programm benötigt 
nur sechs Zeilen. Hierbei wurden bewußt die hohen 
Zeilennummern ab 10000 gewählt, weil diese Routine 
in jedes Grafikprogramm als Unterprogramm einge- 
bracht werden kann, wenn man einen Bildschirmaus- 
druck wünscht. Die betreffende Verzweigung erfolgt mit 
GOSUB; in Zeile 10060 muß dann abschließend eine 
RETURN-Anweisung für die Rückführung eingegeben 
werden. 

10010: Der Datenkanal zum Drucker wird eröffnet und mit 
der Fluchtsequenz ESC''3’;4 der Zeilenabstand auf 4/216 
Zoll eingestellt. Dieser geringe Abstand wird bei Einzel- 
punktgrafik benötigt. Einige Drucker lassen sich nur mit 
n/144 Zoll ansteuern. Hier sollten eigene Versuche ge- 
macht werden, mit welchem Zeilenabstand der Ausdruck 
der Bildschirmdarstellung am ehesten entspricht. 

10020: Durch die FOR... NEXT-Anweisung werden die 200 
Zeilen mit Hilfe der nachfolgenden RDOT-Funktion nach 
den gesetzten Bildschirmfarben untersucht. Die Fluchtse- 
quenz ESC'K’';64;1 teilt dem Drucker mit, daß für die 
Einzelpunktgrafik pro Zeile 320 Daten folgen werden 
(entsprechend den 320 horizontalen Bildpunkten des 
hochauflösenden Grafikmodus). Die Angabe ist in Low- 
Byte (64) und High-Byte (1) aufgeteilt (64 + 1*256 = 320). 
10030: Mit dieser FOR...NEXT-Anweisung werden nun 
die 320 Bildschirmpunkte in x-Richtung durchlaufen. Die 
RDOT-Funktion ermittelt, ob der Bildschirmpunkt die Hin- 
tergrundfarbe (Wert 0) oder die Zeichenfarbe (Wert |) 
enthält. Im ersten Durchlauf der Hardcopy-Routine wer- 
den somit durch die FOR...NEXT-Anweisung aus Zeile 
10020 alle horizontalen Bildschirmpunkte der Zeile 0 
überprüft, im zweiten Durchlauf alle horizontalen Punkte 
der Zelle 1 usw., bis dıe Zählvariable ı den Wert 199, also 
die letzte Bildschirmzeile, erreicht hat. 

10040: Die RDOT-Bildschirmdaten wurden der Variable n 
zugewiesen und werden nun an den Drucker übertragen, 
das heißt hier entsteht die Druckzeile für die Einzelpunkt- 
grafık, dıe aus 320 Daten pro Zeile besteht, was mit Zeile 
10020 bereits festgelegt wurde. Nach jedem Durchlauf 
von ] wird eine ınhaltlose PRINT-Anweisung gegeben, um 
beim Drucker einen Zeilenvorschub auszulösen. 

10050: Hier wırd der Zeilenabstand wieder auf normal 
gestellt; 36/216 entspricht sechs Zeilen pro Zoll. Auch 
hier können beı unterschiedlichen Druckermodellen an- 
dere Angaben notwendig werden. 

10060: Zum Abschluß wird der Datenkanal zum Drucker 
wıeder geschlossen und das Programm beendet. Wenn 
diese Routine als Unterprogramm eingesetzt wird, muß 
hier noch eine RETURN-Anweisung gegeben werden. 


Da insgesamt 200 mal 320 Bildschirmpunkte (64.000) un- 
tersucht werden, vollzieht sıch dıe Hardcopy leider sehr 
langsam. Man muß mit etwa zwanzig Minuten rechnen. 
Beı Aufgaben dieser Art macht sich die relatıv langsame 
Arbeitsgeschwindigkeit von BASIC bemerkbar. Ein Ma- 
schinenspracheprogramm gibt eine Hardcopy ın etwa 
sechzig bis neunzig Sekunden aus. 

Dateiname auf der Begleitdiskette: HARDCOPY 

oder: hardcopy 


Keymaster 


Nach dem Einschalten des Computers sınd die acht 
Funktionstasten [fl] bıs [f8] nıcht unbedingt zweckdienlich 
belegt. So wird zum Beispiel nach dem Drücken von [f7] 
der LIST-Befehl gleich mit [RETURN] ausgeführt, jedoch 
benötigt man beı längeren Programmen nur selten das 
vollständige Abrollen des Listings auf dem Bildschirm. Je 
nach Bedarf wırd ein Anwender ohnehın eine selbstdefi- 
nierte Funktionstastenbelegung wünschen. 

Da es sehr lästig ıst, vor Jedem Arbeitsbeginn acht KEY- 
Anweisungen zu geben, bietet es sıch an, hierfür ein Uti- 
lity einzusetzen, mit dem sıch neue Definitionen bequem 
eingeben und auf Diskette abspeichern lassen. Nach 
dem Einschalten des Computers wird die gespeicherte 
Belegung eingeladen und aktiviert. 


” char 1, WERL en. Neubelegu 


100 char ı 1.3,16,°5 Ende 


wir 1 then begin 
ano senelr een 
y 1, 1, 23, "Abbruch „mit oe 2: char ı 


150. 
en) then goto 30 
1BD zex+]:if 28 then An 200 


190 gato. 180 


320 bend“ 


370 er 


380 if a=4 then begin . 

330 for x=-1 to B:key x, FSCx): next x 

400 scenelr:key 

“10 char 1,1,10, "Funkt ionstastenbelegung 
abgeschlossen”. l:print:end 

420 bend 

430 print ”Belegung von F”;x;:input FS(Cx 
):return 


KEYMASTER 
Funktionstasten neu belegen 


Belegung von Diskette einlesen 


Einzelne Tasten ändern 
Neubelegung aktivieren 


Ende 


Eingabe: 


10 bıs 120: Die vier verschiedenen Auswahlpunkte (Ta- 
sten neu belegen, Belegung einlesen, einzelne Tastenbe- 
legungen ändern und Neubelegung aktıvieren) werden 
auf den Bildschirm gebracht. Mit GETKEY kann eine Ein- 
gabe erfolgen. 

130 bıs 250: Hier können die Belegungen der acht Funk- 
tıonstasten eingegeben werden (zum Beispiel LIST, RUN, 
SOUND und so weiter). Im Groß-/Kleinschriftmodus 
müssen die Befehle oder Anweisungen ın Kleinschrift ein- 
gegeben werden. Eın Abbruch ıst Jederzeit durch die 
Eingabe eines Sternchens (*) möglich. In Zeile 200 wırd 
über eine INPUT-Anweisung eingegeben, ob die soeben 
definierten Tastenbelegungen auf Diskette abgespei- 
chert werden sollen. Wenn hier ein »n« oder eın »N« ein- 
gegeben wird, verzweigt das Programm wieder zu den 
Auswahlpunkten, ım anderen Fall werden die acht einge- 
gebenen Daten ın einer seqentiellen Dateı unter einem 
frei wählbaren Dateinamen gesichert. Es ist also möglich, 
mehrere Funktionstastenbelegungen für verschiedene 
Zwecke zu definieren: zum Beispiel SOUND-Anweı- 
sungen beı Musiıkprogrammierung, SPRITE-Anweisungen 
beı Sprite-Programmierung und so weiter. 

260 bis 320: Wurde ım Eröffnungsmenü die Taste [2] 
gedrückt, verzweigt das Programm ın diesen Abschnitt 
und fragt nach dem Namen der Dateı, in der eine früher 
gemachte Belegung gespeichert ist. Danach werden die 
eingelesenen Daten der Hilfsvariablen f$ zugewiesen. 
Nach der Rückkehr zum Eröffnungsmenü kann die Bele- 
gung durch Drücken von [4] aktıvıert werden. 


330 bis 370: Mit diesem Abschnitt wird die Änderung ei- 
ner einzelnen Funktionstaste ermöglicht. Eine einzelne 
Eingabe wird hier automatisch aktiviert, so daß nicht un- 
bedingt Auswahlpunkt [4] des Eröffnungsmenüs aufgeru- 
fen werden muß. Wenn man allerdings eine gespeicher- 
te Definition eingelesen und dann eine einzelne Belegung 
geändert hat, muß zur Aktivierung Auswahlpunkt [4] ein- 
gegeben werden. 
380 bis 420: Dieser Abschnitt belegt durch die KEY- 
Anweisung die Funktionstasten mit den definierten Befeh- 
len oder Anweisungen. Das Programm wird danach 
beendet. 
Dateiname auf der Begleitdiskette: KEYMASTER 

oder: keymaster 


Farbwahl 


Bei vielen Anwendungen hat man den Wunsch, die Bild- 
schirmfarben für Hintergrund, Rand und Zeichen frei zu 
bestimmen oder diese Farben im Verlauf eines Pro- 
gramms häufiger zu ändern (zum Beispiel um einzelne 
Menüseiten voneinander abzuheben). Da für die ver- 
schiedenen Farbquellen (Vordergrund, Hintergrund, Zei- 
chen...) jeweils sechzehn Farben bestimmt werden 
können, ist es recht mühsam, durch COLOR-An- 
weisungen die Wirkungen der Farben zueinander zu tes- 
ten. 

Mit dem Farbwahl-Utility ist es möglich, alle Farbkombı- 
nationen durch einfachen Tastendruck auszuwählen und 
deren Wirkungen unmittelbar am Bildschirm zu prüfen. 
Die aktuellen Farbwerte werden dabei ım Bildschirm ein- 
geblendet, so daß man diese Werte in ein anderes Pro- 
gramm übernehmen kann. 


Ari 1,2,20,”7 


ec =fc-l 


206 char 1,17, 24 mer 2 


FARBWAHL 


Hintergrund (40) 
Vordergrund 
mittlere Grafik I 
mittlere Grafik II 
Rand (409 
Textfarbe 
Hintergrund (80) 


7 Ende 


Bitte Farbquelle wählen 


Farbquelle = O Farbcode = O 


10 bis 130: Der Bildschirm zeigt dıe sieben möglichen 
Farbquellen, wobei für eine Darstellung Jeweils nur die 
zusammengehörenden wirksam werden können (zum Beı- 
spiel Hintergrund, Rand und Textfarbe ım 40-Zeı- 
chenmodus). Wenn für die anderen Farbauellen auch 
Farben definiert werden, bleiben sıe in dieser Darstel- 
lung ohne Wirkung. Durch die GETKEY-Anweisung ın 
Zelle 130 kann die gewünschte Farbquelle ausgewählt 
werden. 

140 bıs 170: Nach der Wahl der Farbquelle kann man nun 
mit Hilfe der grauen ÜCursortasten »Äuf« und »Äb« den 


Farbcode erhöhen oder herabsetzen. Durch Drücken 
von [*] wird dıe Arbeit abgebrochen und zum Auswahl- 
menü zurückgekehrt, wo man die Farbe für eine andere 
Farbquelle bestimmen kann. 
180 und 190: Da nur Farbcodes zwischen 1 und 16 erlaubt 
sind, muß verhindert werden, daß bei fortlaufendem 
Drücken der Cursortasten »Äuf« oder »Äbk« fc-Werte über 
16 oder unter | entstehen. In diesen Zeilen wird durch IF- 
..IHEN-Anweisungen erreicht, daß ın dıesem Fall der 
Farbcode beim Wert 16 beziehungsweise 1 stehen bleibt. 
200: Hier wırd dıe COLOR-Anweisungen mit den aktuel- 
len Werten ausgeführt. 
205 bıs 210: In Spalte 1, Zeile 24 und Spalte 17, Zeile 24 
werden die aktuellen Werte für Farbquelle und Farb- 
code eingeblendet. Beı Veränderung der Textfarbe wer- 
den auch immer nur diese Einblendungen in den neuen 
Farben angezeigt. Das hat den Vorteil, daß bei Farbkom- 
binationen, die sich einander überblenden, die Auswahl- 
punkte trotzdem sichtbar bleiben. 
Dateiname auf der Begleitdiskette: FARBWAHL 

oder: farbwahl 


Bilddaten speichern 


Ebenso wıe der bildschirmidentische Ausdruck einer 
grafischen Abbildung (Hardcopy) ıst das Sichern des 
Textbildschirminhalts auf Diskette ein universelles Utility, 
das ın vielen ÄAnwenderprogrammen zum Einsatz kom- 
men kann. Äbgespeicherte Bilddaten (zum Beispiel Re- 
chenergebnisse) können später Jederzeit wieder von 
Diskette eingelesen und auf dem Bildschirm dargestellt 
werden. Allerdings ıst das folgende Listing nur ım 
40-Zeichenmodus anwendbar, weil der 80-Zeichenmodus 
einen Bildschirmspeicher außerhalb des adressierbaren 
Bereichs hat und deshalb weder durch PEEK gelesen, 
noch durch POKE beschrieben werden kann. 


10 senelr | 

eO char 1,0, 0, ” Te leechire wird abge 
speichert ”,i1 

30 for %=1 to 2.3: print”Nustertext zum Ie 
sten des Programms”:next x | 

40 rem 

50 rem 0 En 


ET 


10 bis 50: Dieser Abschnitt dient nur zum Austesten des 
Bilddatenspeichervorgangs und hat mit dem eigentlichen 
Utility nıchts zu tun. Hier wird lediglich ein Mustertext ın 
den Bildschirm geschrieben. 
11000 bis 11030: Da auch dieses Programm — wıe Hard- 
copy — als Unterprogramm eingefügt werden kann, wur- 
den entsprechend hohe Programmzeilennummern ge- 
wählt. Durch den Begınn mit 11000 ıst es möglıch, sowohl 
das Hardcopy-Utility (das mit 10000 beginnt) als auch die- 
ses Programm gleichzeitig ın ein anderes Programm mit- 
aufzunehmen, ohne daß eine Umnumerierung erfolgen 
müßte. Mit Zeile 11010 wırd eine Sequentielle Dateı unter 
dem Namen »bor« (als Abkürzung für »Bilddatengrafik«) 
eröffnet, ın dıe die Daten jeder einzelnen Bildschirmstelle 
übertragen werden. Der Bildschirmspeicher ım 40- 
Zeichenmodus beginnt beı 1024 und endet 40 mal 25 = 
1000 Speicherstellen weiter, bei 2023. Durch dıe FOR- 
..NEXT-Anweisung ın Zeile 11020 werden mit Hilfe von 
PEEK die Daten der Adressen gelesen und an die Disket- 
tenstation übertragen. 
11100 bis 11130: Um die gespeicherten Bildschirmdaten 
wıeder erscheinen zu lassen, muß der Vorgang genau 
umgekehrt werden, das heißt, dıe einzelnen Dezimalwer- 
te der Sequentiellen Datei werden mit Hilfe von POKE ın 
die 1000 Adressen des Bildschirmspeichers übertragen. 
Dadurch zeigt der Bildschirm dıe gleichen Zeichen wıe 
vor dem ÄAbspeichern. Um den Einleseabschnitt zu errei- 
chen, gibt man ım Direktmodus die Anweisung GOTO 
11100 [RETURN] ein, auf Programmebene GOSUB 11100. 
Auf Programmebene müssen die Unterprogrammab- 
schnitte mit einer RETURN-Anweisung abgeschlossen 
werden. 
Dateiname auf der Begleitdiskette: BILDDATEN 

oder: bilddaten 


Joystick-Steuerung 


Mit der JOY-Funktion kann ermittelt werden, in welcher 
Position sich ein angeschlossener Joystick (oder auch 
eine sogenannte »Maus«) befindet. Die ermittelten Daten 
lassen sıch mit Hilfe von IF... THEN-Anweisungen zum Beı- 
spiel dazu verwenden, die x/y-Koordinaten einer Sprite- 
Figur, einer DRAW-Anweisung...festzulegen und auf 
diese Weise eine Figur auf dem Bildschirm zu bewegen 
oder den Joystick als Zeichenstift zu benutzen. Da eın nor- 
maler Joystick acht Positionen (vier Bewegungsrichtun- 
gen und Diagonalbewegung) sowie Ruhestellung und 
Werte bei gedrücktem Knopf annehmen kann, ist es 
recht umständlich, für Jede dieser Stellungen eine eigene 
IF... THEN-Anweisung zu programmieren (zum Beispiel: 
IF JOYA)=1 THEN...).. Mit Hilfe von logischen Ver- 
knüpfungen ist es möglich, Bedingungen für alle Stellun- 
gen eines Joystick in nur vier Programmzeilen zusammen- 
zufassen. Die folgende Routine ist ganz universell und 
kann für alle Joystick-Operationen verwendet werden. 


10 rem joysticksteuerung 

eD Ealor D,35:22lor 1,2:o0lor %,13 
30 graphie 1,1 

40 x=160:y=1D0D 

Sy Hrau 1,x,4U £0 x, 4: 

BO n=joy(1) 

70 iE n=D chen 6D 

BO ze ttin=Blorim- 7lorteB8)) 

90 x=x-C(n=2)or(n=3)or(n=4)) 

105 mut Lmel2ortezßor en)? 

110 y*y-C(n=4)Jor(n»=S5)Jor(n=6)) 

120 if x<O then x=O 

140 if y<O then y=O 

150 IE 52199 Ehen u"193 

160 if n>127 then char 1,1,1,”knopf gedr 
een Ä | 

170 ıf n<l27 then char QD,1,1,” 


180 goto 50 


20 bıs 40: Diese Zeilen definieren lediglich den hoch- 
auflösenden Grafikmodus sowie die Vordergrund- und 
Zeichenfarbe. Mit der Joystick-Steuerung haben sie somit 
nichts zu tun und können beliebig verändert werden. Sie 
dienen hier zu Demonstrationszwecken der Joystick- 
Bewegung. 


Joystick mit 

Trigger, zwei Feuer- 
knöpfen und vier 
Gummisaugfüßen 


50: Mit dieser Zeile wird der Startpunkt der Zeichenfarbe 
festgelegt, die durch die Joystick-Bewegung beliebige Li- 
nıen auf den Bildschirm zeichnet. Nach dem Programm- 
start findet sıch ın der Bildschirmmitte lediglich ein Punkt. 
60: Wird an Port 1 eın Joystick angeschlossen, müssen 
alle Operationen mit der JOY-Funktion durch die Angabe 
JOY(l) erfolgen, ım anderen Fall ıst es JOY(2). 

70: Solange sıch der Joystick ın Ruhestellung befindet 
(Wert = 0), soll keine Bewegung auf dem Bildschirm er- 
folgen, sondern die Abfrage der Joystick-Stellung in Zeile 
60 wiederholt werden. 

80 bis 110: Hier findet die Auswertung der Joystick- 
Bewegungen mit Hilfe von logischen Verknüpfungen 
statt. Wenn der Joystick zum Beispiel nach vorn gedrückt 
wird, soll sich der unsichtbare grafische Cursor (oder eı- 
ne Sprite-Figur) um einen Bildschirmpunkt nach oben be- 
wegen, das heißt dıe y-Koordinate um 1 vermindert wer- 
den. Wenn der Joystick nach unten gedrückt wird, soll 
sich die y-Koordinate um 1 erhöhen. Wird der Joystick 
nach rechts bewegt, soll sich dıe x-Koordinate um | 
erhöhen, beı Linksbewegung um 1 vermindern. Drückt 
man Jedoch den Joystick zum Beispiel diagonal nach 
rechts oben, müssen sowohl die x- als auch die y- 
Koordinate verändert werden, damit sich eine Figur oder 
ein Zeichenpunkt auch auf dem Bildschirm diagonal be- 
wegt; ın diesem Fall muß bei dıagonal rechts oben x um 
den Wert l zunehmen und y um den Wert | abnehmen. 
Bei diagonal links unten wäre es genau umgekehrt: hier 
müßte der x-Wert um l abnehmen und der y-Wert um | 
zunehmen. Um alle diese verschiedenen Bedingungen 


zusammenzufassen, wird zum Beispiel in Zeile 80 angege- 
ben: x=x+((n=b)or(n=T)or(n=8)). Die Anweisung hat 
nichts damit zu tun, die Werte 6,7 und 8 zu addieren, son- 
dern logisch zu verknüpfen. Das bedeutet: Der Wert von 
x (also die x-Koordinate des grafischen Bildschirms) soll 
um l vermindert werden, wenn die Joystick-Bewegung, 
dıe durch n=jJoy(l) ermittelt wurde, den Werten 6 (diago- 
nal lınks unten), 7 (links) oder 8 (dıagonal lınks oben) ent- 
spricht. Durch den logischen Operator OR (BASIC- 
Abkürzung für logisch ODER) genügt das Zutreffen einer 
dieser Bedingungen; würde man anstelle von OR eın 
AND setzen, müßten alle drei Bedingungen zutreffen, da- 
mit sich der Wert von x um 1 vermindert. Nun steht je- 
doch ın Zeile 80 x=x+ und nicht x=x-, trotzdem wird x 
um l vermindert, wenn eine der drei Joystick-Stellungen 
zutrifft. Das hat folgenden Grundg: Trifft eine logische Be- 
dingung zu, Ist der intern hierfür verarbeitete Wert -|, 
trıfft sie nıcht zu, ist der Wert 0. Wenn also eine der drei 
erwähnten Joystick-Bewegungen vorgenommen wird, 
trıfft eine der drei logischen ODER-Verknüpfungen zu, so 
daß der ıntern verarbeitete Wert -] ist. Addiert man dann 
x plus -], so wird x um 1 reduziert und die gewünschte 
Bildschirmkoordinate erreicht. Nach diesem Prinzip sınd 
auch die anderen drei Programmzeilen aufgebaut, bei 
denen — ın Abhängigkeit von der Joystick-Bewegung — 
die Koordinatenwerte entweder erhöht oder vermindert 
werden. Denn subtrahiert man einen Minuswert von eı- 
ner Zahl, wird ıhr Wert erhöht: zum Beispiel 
x=1:n=-l:print x-n (Ergebnis = 2). 
120 bis 150: Wenn eine Bildschirmposition außerhalb 
des zulässigen Bereichs angesprochen wird, gibt der 
Computer eine Fehlermeldung aus. Um dies zu vermei- 
den, wird hier bei Über- oder Unterschreiten der zulässi- 
gen Bildschirmpositionen die x- und y-Koordinate auf 
dem kleinsten oder größten Wert gehalten. 
160: Wenn am Joystick der Knopf gedrückt wird, erhöht 
sıch der Wert von n=Joy(l) um 128. In diesem Fall soll auf 
dem Bildschirm der Text »Knopf gedrückt« erscheinen. 
In einem regulären Spiel- oder Anwenderprogramm 
können hier natürlich andere Anweisungen erfolgen (zum 
Beispiel ein Schußgeräusch oder ähnliches). 
170: Wenn der Knopf nıcht gedrückt ist, wird der Text 
wieder gelöscht. 
180: Diese Zeile verzweigt zur Zeile 50, wo mit Hilfe der 
DRAW-Anweiısung die neue x/y-Koordinate mit Zeichen- 
farbe ausgefüllt wird. Dadurch entstehen beliebige Li- 
nıen auf dem Bildschirm. 
Dateiname auf der Begleitdiskette: JOYSTICK 

oder: Joystick 


Invertieren von Texten 


Im Verlauf der einzelnen Lektionen dieses Buches wurde 
immer wieder von Auswahlmenüs in Anwenderprogram- 
men gesprochen. Tatsächlich stellen solche Menüs eine 
wichtige Arbeitserleichterung für Eingaben dar. Um die 
Übersichtlichkeit einer angewählten Programmfunktion 
weiter zu erhöhen, bietet sıch an, den Text eines Aus- 
wahlpunktes gegenüber dem anderen Bildschirmtext zu 
ınvertieren. Der hierfür notwendige Programmıerauf- 
wand ist äußerst gering. Die eigentliche Invertierung läßt 
sıch mit nur einer Programmzeile realisieren. Hinzu kom- 
men einige Hilfsanweisungen, mit denen Beginn und En- 
de des zu ıinvertierenden Bildschirmbereichs definiert 


10 rem invertieren eines auswahlpunktes 
eD0 scnclr 

30 xa:um5 nn nn 

“0 char 1,8 ur. Aesahlmenne® 

Ss0 char. ur ”2, Auswahlpunkt” 

50 char 1,x,4*4, "3. nn 

70 char 1,5,15,” Ihre Eingabe: ”,1 

BO getkey a 

S0 if a=i then y>5. 

100 if a=? then y= 7 

110 if a=3 then y=9_ 

1lE0 u=0®j 

130 for i=0 to 14:poke 1024+x+y+i,peektil 
DeEyY+2+Huti)+12B: next i 


1. Auswahlpunkt 


2. Auswahlpunkt 


3. Auswahlpunkt 


Ihre Eingabe: 


werden. Auch hıer gilt wıeder dıe Beschränkung auf den 
40-Zeichenmodus, weil sıch der Bildschirmspeicher ım 
80-Zeichenmodus nicht einfach durch PEEK lesen läßt. 

10 bıs 80: Hier werden drei Pseudoauswahlpunkte auf 
den Bildschirm gebracht, dıe dıe Funktionsweise der In- 
vertierungsroutine verdeutlichen. 

90 bis 110: Je nach Eingabe (1,2 oder 3) wırd die Bild- 
schirmzeile bestimmt, in der eine Invertierung stattfinden 
soll. In diesem Fall ıst dıes die Zeile 5,7 oder 9. In ande- 
ren Anwenderprogrammen können diese Werte natür- 
lıch anders ausfallen. Das Funktionsprinzip der Invertie- 
rung wird hiervon nıcht berührt. 

120: Da jede Zeile 40 Bildpunkte hat, muß zur Ermittlung 
der Bildschirmspeicherstelle der Wert y mit 40 multipli- 
ziert werden. 

130: Hıer findet die eigentliche Invertierung statt. Da ın 
dıesem Fall dıe drei Bildschirmtexte je fünfzehn Zeichen 
lang sınd, wird die FOR...NEXT-Anweisung entspre- 
chend angegeben. Bei längeren oder kürzeren Texten 
muß der Wert für I erhöht oder reduziert werden. Um zu 
vermeiden, daß für jeden Auswahlpunkt eine eigene 
FOR...NEXT-Anweisung gegeben wird, sollte sıch die An- 
zahl der Durchläufe nach dem längsten Text richten. Mit 
der PEEK-Funktion wird der Inhalt der Bildschirmspei- 
cherstelle gelesen und durch die POKE-Anweisung um 
den Wert 128 erhöht. Denn unabhängig davon, welche 
Zeichen auf dem Bildschirm dargestellt werden, ist deren 
Bildschirmcode für Inversdarstellung stets um 128 höher 
als bei der Normaldarstellung. Will man einen invertier- 
ten Text wieder normal darstellen, so muß lediglich an- 
stelle von + 128 dıe Eingabe -128 gemacht werden. 


Dateiname auf der Begleitdiskette: INVERS 
oder: Invers 


zentrieren von Texten 


Bei der Verarbeitung von Texten wünscht man häufig eı- 
ne Funktion, mit der eine Überschrift oder ähnliches au- 
tomatısch ın der Mitte des Bildschirms ausgerichtet wird. 
Hierfür läßt sıch eine kurze Routine einsetzen, die sowohl 
für dıe 40- als auch für die 80-Zeichendarstellung gültig 
ıst. Das Programm erkennt automatisch, welcher Bild- 
schirmmodus aktiviert ist und berechnet danach die zen- 
trıierte Position für einen Text. Da auch dieses Utility — 
wıe Hardcopy und Bilddatenspeicherung — für den Auf- 


ruf als Unterprogramm geeignet ıst, wurden Programm- 
zeillennummern ab 12000 gewählt. 


char 1 ee gar 


Eingabe des Textes: ÜBERSCHRIFT 


ÜBERSCHRIFT 


12010 bis 12030: Mit der Funktion RGR läßt sıch feststel- 
len, welcher Bildschirmmodus zur Zeit aktiviert ıst. Bei 40- 
Zeichendarstellung ist der Wert von RGR gleich 0, bei 80- 
Zeichendarstellung gleich 5. Entsprechend wird der 
Hilfsvariablen n der halbe Wert der darstellbaren Zeı- 
chenanzahl zugewiesen (20 oder 40). 
12040: Die Nummer der Bildschirmspalte, beı der eın zu 
zentrierender Text beginnen muß, lautet a=n-(Textlän- 
ge:2). Dieser Sachverhalt wird für dıe Definition von fnz 
berücksichtigt. 
12060 und 12070: Hier kann man zu Testzwecken einen 
Text eingeben, der anschließend zentriert auf dem Bild- 
schirm erscheint. Diese Zeilen sınd also nıcht Bestandteil 
der Routine. 
Dateiname auf der Begleitdiskette: ZENTRIEREN 

oder: zentrieren 


Druckerinstallation 


In den Lektionen 11 und 17 wurde bereits auf die 
Möglichkeiten zur Druckeransteuerung eingegangen. 
Danach lassen sich viele Optionen wie rechte und linke 
Randbegrenzung, Unterstreichen, Fettschrift und so wei- 
ter anwählen, sofern ein Drucker technisch entsprechend 
ausgerüstet Ist. 

Mit dem folgenden Utility wird die Mühe der Einzeleinga- 
ben abgenommen. Über eine Reihe von Auswahlpunkten 
müssen lediglich die gewünschten Ausdruckarten be- 
stimmt werden; danach erfolgt die Installation des Druk- 
kers. Installationen können beliebig oft wiederholt und 
geändert werden. 

Die Auswahlpunkte stellen die wichtigsten und am häu- 
figsten programmierten Druckereinstellungen dar. Es ist 
jedoch möglich, alle Eingaben nach persönlichem Be- 
dürfnis zu ändern. Das Utilitiy ist in der vorliegenden 
Version auf dem STAR SR-10 lauffähig, mit Ausnahme des 
Punktes 4, »NLQ-Modus«, auch auf allen IBM-, MSX-, 
EPSON- und Centronics-Druckern. 


e0 schnell 
30 for x*=1 to 10:read a:d(x)*=a:next x 
40 » 


danline 


3,9,”3 Schriftart ”,l:prin 


t ” ehr$(d(3));” P=Pica M=Elite” 
 Eenar 1,3,11,79 NLO ”-.1-Dri 


50 char 1, ° 1:pri 


nt 
sa 1sein Beraus! ... 


1,3,15,”6 Breitschrift ”,1:pr 
1,39,17,"7 Unterstr. u » 1:pr 


ie0 char 1,3,123,°8 Modu wre: 
ant 9:101;dc8).8C8) 00... 
is) gar 1,3,81,°8 Installation ” I 

150 char 


190 if asc(x$)>12B then d(x)=asc(x$): got 


210 ı Acxd=valtxs) 

Ben gate 38. ı.2 
230 rem installation 
240 opend 4.068)  ..........00..082.... 

E50 print#4, chr$ce7): “1":ohrFrBlatl)); 

260 print#s,chr8(27); ’D";chr$(d(2)); 

e70 prints, chra{e72: -chr$(d(39); 

EBO print#t,cheS(l2?7).chrslalh)), 

Bd Hrineht, ehrt 273: ch a 59) 3; 

300 print#4, ehrsc27);”u”; ehrS(td(6)); 

310 print#i,chr#t273; ans lninkbl 

320 print#4:close#4: En 
330 char 1 u ee, "Installation abgeschlos 
sen”,&i: 
340 data B, 70, 208, 53, 138, o, o, e, W. 4 


Druckerinstallation 


linker Rand 
rechter Rand 
Schriftart 
NLQ 
Fettschrift 
Breitschr ift 
Interstr. 
Modus 
Installation 


Ende 


(P=Pica M=Elite) 
(4=zein 5=aus) 
(Ezsein Fz=aus) 


(1zein #=aus) 
(1-ein #-=aus) 
42 


Ha a a Fe ot CD 


jan BEN En u BES Dun u ZU du San Ze Dh Eu 


10 bis 170: Mit diesen Zeilen werden die Auswahlpunkte 
zur Druckerinstallation auf den Bildschirm gebracht. Ver- 
schiedene voreingestellte Werte (zum Beispiel Iınker 
Randbegıinn mit Spalte 8, rechte Randbegrenzung ın Zeı- 
le 70...), die inder DATA-Anweisung Zeile 340 enthalten 
sind, erscheinen ebenfalls auf dem Bildschirm. Wer von 
vornherein eine rechte Randbegrenzung von 65 wünscht, 
kann natürlich auch diesen Wert ın die DATA-Anweısung 
einbringen. 

180: Je nach Auswahlpunkt kann in dieser Zeile eine neue 
Eingabe gemacht werden. Die möglichen Ausdruckoptio- 


nen sınd jeweils rechts von den Auswahlpunkten ange- 
zeigt (zum Beispiel P=Pica M=Elite für die Wahl der 
Schriftart). 
190 bıs 220: Da bei der Auswahl von Druckoptionen so- 
wohl numerische als auch alphanumerische Daten einge- 
geben werden (zum Beispiel »M« zum Aktivieren der Elı- 
te-Schrift oder der Wert | zum Aktivieren des Unterstrei- 
chens), erfolgt hier — je nach Eingabe — eine Umwand- 
lung In numerische oder alphanumerische Werte. Wenn 
zum Beispiel ein »M« eingegeben wurde, dessen ASCII- 
Code ım Groß-/Kleinschriftmodus 205 ist, so wird der nu- 
merischen Feldvariablen d(3) dieser ASCI-Wert durch 
dıe ASC-Funktion zugewiesen. Wird hingegen eine »l« 
oder eine »0« eingegeben, erfolgt die Zuweisung mit Hilfe 
der VAL-Funktion, mit der das Zeichen »l« beziehungs- 
weise »0« in den numerischen Wert | oder 0 umgewan- 
delt wird. 
230 bıs 330: Mit diesen Zeilen wird die Druckerinstalla- 
tion ausgeführt, das heißt nach Eröffnen des Datenkanals 
folgen Fluchtsequenzen mit PRINT#-Anweisungen, die 
die Ränder einstellen, dıe Schriftart wählen und so wei- 
ter. (Die einzelnen Fluchtsequenzen wurden in Lektion 17 
vorgestellt.) Es ıst selbstverständlich möglich, in diesen 
Programmabschnitt völlig andere Fluchtsequenzen einzu- 
geben. Das Ablaufprinzip des Programms wird davon 
nicht beeinflußt. 
Dateiname auf der Begleitdiskette: INSTALLATION 
oder: ınstallatıon 


Download Characters 


Trotz der Fülle von Ausdruckmöglichkeiten, die Nadel- 
Matrixdrucker bieten, sınd im Betriebssystem des Druk- 
kers natürlich nicht alle Zeichen erfaßt, dıe man gerne 
ausdrucken möchte. Dies gilt zum Beispiel für mathemati- 
sche Symbole, spezielle Grafikzeichen oder Zeichen aus 
den Bereichen Musik, Elektronik, Astrologie... 

Viele Drucker bieten jedoch die Möglichkeit, selbstdefi- 
nıerte Zeichen (Download Characters) ins Drucker-RAM 
einzuladen und wıe Jedes andere Zeichen auszudrucken. 
Genau wie der festliegende Zeichensatz lassen sich 
Download Characters auch in den verschiedenen Dar- 
stellungsarten wie Doppeldruck, Fettdruck, Schmaldruck 
ausdrucken. Dadurch ergeben sıch zum Teil recht inter- 
essante Darstellungsmöglichkeiten. 


Ebenso wıe die Zeichen des Computers, die auf dem 
Bildschirm erscheinen, werden Druckerzeichen ın einer 
Punktmatrix entworfen. Die Anzahl der Punkte hängt von 
der Anzahl der zur Verfügung stehenden Druckernadeln 
ab. Bei den meisten Geräten der mittleren Preisklasse 
sınd Jeweils neun Nadeln übereinander angeordnet. 
Beim Ausdruck werden Jedoch höchsten acht Nadeln an- 
gesprochen (entspricht einem Daten-Byte). Je nach Struk- 
tur des Zeichens sınd dies entweder die oberen acht Na- 
deln (für Zeichen wie a,A,b,B) oder die unteren acht Na- 
deln (für Zeichen mit Unterlänge wie ],9,y). 

Der Unterschied zwischen Computerzeichen und Druk- 
kerzeichen besteht darın, daß die Dezimalwerte der Da- 
ten-Byte für ein Zeichen nicht horizontal, sondern vertikal 
angegeben werden. Dabei befindet sıch ın der Regel das 
höherwertige Bit (dezimal 128) oben und das nıiederwer- 
tıge Bit (dezimal 1) unten. Außerdem müssen anstelle von 
acht Byte (aus denen die Computerzeichen zusammenge- 
setzt sınd) bei Download Characters elf Byte angegeben 
werden, weil der Drucker Jedes Zeichen horizontal ın elf 
Druckspalten ausdruckt (näheres findet sıch ım Hand- 
buch eınes Jeden Druckers). 

Wıll man nun ein eigenes Zeichen kreieren, müssen ne- 
ben den elf Dezimalwerten, die sich aus dem Entwurf er- 
geben, noch folgende Angaben gemacht werden: 


Diese Angaben (mit Ausnahme des ASCII-Codes) faßt 
man ın das sogenannte Attribut-Byte zusammen. Hierfür 
gilt folgendes: Wird keine Unterlänge gewünscht, muß 
Bit 7 (dezimal 128) des Attrıbut-Byte gesetzt werden. Als 
Startposition kann man Spalte Il und als Endposition Spal- 
te ll angeben (Start- und Endposition sind nur für den so- 
genannten Proportionaldruck interessant, bei dem die 
Zwischenräume von Zeichen mit unterschiedlicher Breite 
ausgeglichen werden). 

Wer langes Nachrechnen über den Endwert des Attr- 
but-Byte umgehen will, kann folgende Formel anwenden: 


Attrıbut-Byte = Unterlänge + Startposition*16)+ Endposition 


Wenn zum Beispiel ein Zeichen ohne Unterlänge ın Spal- 
te 1 beginnt und in Spalte 11 endet, errechnet sich das At- 
trıbut-Byte = 128 + (1*16) + 11 = 155. Soll ein Zeichen 
hingegen mit Unterlänge gedruckt werden, in Spalte 3 
beginnen und In Spalte 9 enden, lautet dıe Angabe für 
das Attrıbut-Byte = 0 + (3*16) + 9 = 57. 

Nach diesem Verfahren sınd ım folgenden Listing zwölf 
Download Characters definiert worden; es handelt sich 
dabeı um die Symbole der zwölf Tierkreiszeichen. Im 
Drucker-RAM belegen sie die ASCII-Codes 65 bis 76. 
Zum Experimentieren können Sie — bis auf die jeweils 
erste Byte-Angabe — alle übrigen Werte beliebig verän- 
dern und die Wirkung beim Ausdruck feststellen (wenn 
sie zum Beispiel jedes Byte mit dem Wert 255 belegen, 
ergibt sich beim Ausdruck ein volles Quadrat, weil alle 
Bit gesetzt sınd, also in allen Spalten alle Druckernadeln 
angesteuert werden). 


1; "8"; chr$(0);chr$(65 


SO prinths, Phr&cd); :mext U: next. 


150 rem "Seiser SUFFUrEN 

160 nrintsH. chrs8(e 7); "7 ;chrst 1); chr8(0) 
170 For x= = tn „BB: rg chrS(x): - 
next x | Hi 
180 rem TOrmalge Zeichensatz 

180 print#H, chr$(27);"%":;:chr$(0);chr$(0) 
ce00 close 4 

210 rem daten Fuer astrologiezeichen 
PeO data 139, B4, 160, 0, ‚leB, 96,31 ,36,1£2B,0 


SEITE 64,0,98,21,8,5,8,21,98,0,64 
nes nen len 


ata 139,252,0, 128, 125,0, 128,128, 1,1 
6a 139,10,0,10, 32,30,0,920,32,10,8, 


:a 139, 254,0,12B,126,0,128,126,1,0 


TYISADBAaRTZSCH 


100 bıs 170: In diesem Abschnitt wırd die Download- 
Character-Funktion durch die Fluchtsequenz ESC''&'';0 
aufgerufen und festgelegt, daß dıe ASCII-Codes 65 bis 76 
mit selbstbestimmten Daten belegt werden. Danach wer- 
den die jeweils zwölf Daten-Byte (Attrıbut-Byte und elf 
Byte für die Druckspalten jedes Zeichens) für die astrolo- 
gischen Symbole aus den DATA-Anweisungen der Zeilen 
220 bıs 330 eingelesen und an den Drucker übertragen. 
In Zeile 160 und 170 erfolgt durch die Fluchtsequenz 
ESC'%';1;0 der Aufruf der selbstdefinierten Zeichen 
und deren Ausdruck. 
180 bis 200: Zur Rückkehr zum normalen Zeichensatz 
wird die Fluchtsequenz ESC''%'';0;0 eingegeben. 
Insgesamt ıst das Thema Download Characters recht um- 
fassend und für unerfahrene Computeranwender kompli- 
ziert. Wer sich eingehender mit der Problematik beschäf- 
tigen möchte, sollte dies im dem Falken-Buch »Drucker 
und Plotter. Text und Grafik für Ihren Computers; 
(F,Best.Nr.: 10/4315) von Karl-Heinz Koch nachlesen. 
Dateiname auf der Begleitdiskette: DOWNLOAD 

oder: download 


Register 


A 
Ablaufgeschwindigkeit 42, 254 
ABS 237 

Addition 12 
Adresse 203 

AND 275 
Anschlag 186 
Anweisungen 8 
APPEND 220 
Arbeitsspeicher 199 
ASC 237 


ASCH-Code 53, 148, 186, 194, 202, 


237 

ASCIVDIN-Taste 10, 119 
ATN 238 

Attrıbut-Byte 282 


Ausschwingzeit, prımäre 186, 191 
Ausschwingzeit, sekundäre 186, 19] 


Auswahl 42 

AUTO 208 

automatische Zeilennumerie- 
rung 208 


B 

BACKUP 75, 208 
Bandpaßfilter 188 
BANK 209 
BASIC-Anweisungen 220 ff. 
BASIC-Befehle 208 ff. 
BASIC-Funktionen 237 ff. 
BASIC-Programmzeile 19 
Befehle 8 

BEGIN 127 E., 220 
BEND Ir. 2% 
Bildschirmgrafik 47 ff. 
Bildschirmmaske 60 ff. 
Bildschirmspeicher 200 
BLOAD 181, 209 
Boolsche Operatoren 72 
BOOT 209 

BOX 172, 1741. 2] 
BSAVE 181, 210 

BUMB 238 


C 
CATALOG 210 
CHAR 68 ff, 221 


CHR&£ 52, 166, 186, 193, 200, 238 
CIRCLE 172, 175 1f., 222 
CLOSE 222 

CLR 110, 149, 210 

CMD 140 ff., 145, 210 
COLLECT 211 
COLLISION 184 f., 223 
COLOR 47, 223, 269 
CONCAT 21] 

CONT 211 
CONTROL-Taste 51 
COPY 211 

COS 238 


D 

DATA 112 ff., 148, 223, 258 

Datei, relative 78f., 87, 152 

Datei, sequentielle 78f., 87 

Datenfelder 60, 79 

Datensatz 60, 79 

Datensatznäummer 59, 71 

Datensicherung 74 ff. 

Datenverwaltungsprogramm 22, 
BI tt. 

Dauerpegel 186, 191 

DCLEAR 224 

DCLOSE* 83, 224 

DECG 239 

DEFFN 224 

Deklarationsanweisung 9 

DELEILE 17/41. 212 

Dienstprogramme 263 

DIM 105f., 108, 149, 225 

DIRECTORY 7651. 2% 

Diskette 74 ff. 

Division 12,147 

DLOAD 30, 213 

DO 226 

DOPEN 81f., 139, 226 

Doppelpunkt 49 

Download Characters 281 ff. 

DRAW 172 ff., 227, 244 

Drehregler 244 

Dreieckwelle 187 

Drucker 134, 138, 198 

Druckeransteuerung 134 ff. 

Druckerinstallation 279 ft. 


DS 131, 251 

DS$ 131, 154, 251 
DSAVE 39, 213 
DVYERFT 213 


E 
Ein-/Ausgabeanweisungen 9 
Eingabemaske 60 
Eingaberoutinen 57 ff. 
EL OL, 81 

ELSE 229 

END 38, 227 
ENVELOPE 186, 227 
ER L13l 22 

ERRE 121, 238 

ESC 891., 193 
Escape 89 

ESCAPE 18 

EXT 22 

EXP 239 


F 

Farbspeicher 200 

FAST 214 

Fehlerbehebung 147 ff. 

Fehlercodes 231 Ef. 

Feldvarıablen 106 ff., 148 

Festwertspeicher 199 

FEichH 214 

FILTER 186, 188, 227 

Fluchtsequenzen 89, 193 ff., 263 

Flukdiagramm 4] 

FOR...NEXT 95 ff., 99, 148 £., 188, 
228 

FRE 149, 240 

Funktionen (BASIC-Funktionen) 8 

Funktionstasten 266 


G 

Geräteadresse 139 
GEIRETY 27 1.228 

GO64 214 

GOSUB B2f., 1497, 228, 2831 
GOTO 30, 229 


Grafik, hochauflösende 47, 170 ff. 


Grafik, mittlere 170 ff. 
Grafiksymbole 50 
GRAPHIC 170 ff., 229 
GSHAPE 229 


H 

Hardcopy 263, 264 ff. 

HEADER 71, 151, 214 

HELP 215 

HEX$ 240 

High-Byte 202 ff. 

Hilfsvariable 109, 122 £., 1281. 
hochauflösende Grafik 47, 170 ff. 
Hochtonfllter 190 

Hüllkurve 190 


I 

Ir .„IHEN 30, 229, 257 
Impact-Geräte 1341. 
INPUT 27 1.2380 
INPUT# 230 

INSTR 240 
Instrumentenstimmen 189 
INT 205, 241 


J 

Ja/Nein-Feld 65 

JOY 241, 278 

Joystick 241, 244, 273 ff. 


K 
KEY 218, 266 
Klangfarbe 186, 188 


L 

LEFTS 84f£., 242 
LEN 85, 242 
Leseroutinen 124 ft. 
LT 6, 11 215 
LOCATE 230 

LOG 242 

LOOP 226 
Low-Byte 202 ft. 


M 

Manipulation (von Speicher- 
stellen) 199, 204 f., 259 ff. 

Matrixdrucker 135 £. 

Menütechnik 23 ff. 

MID$ 84 f., 243 

mittlere Grafik 170 ff. 

MONITOR 216 

MOVSPR 182, 230 

Multiplikation 12 

Musik 186 


N 

Nadel-Matrixdrucker 1351. 
Nassı-Schneiderman-Diagramm 42 
NEW 19, 216 

NLQ-Qualität 136, 279 
Non-Impact-Geräte 134 f. 

Noten 1881. 

nützliche Routinen 263 


Ö 

Oktave 188 
ON..GOTO 0, 231 
OPEN 139, 194 


OPEN* 2831 
OR 72, 275 
P 


PAINT 172, 178, 231 

PEEK 199ff., 243, 259 

PEN 243 

Pl-Zeichen (rn) 152 f., 243 

PLAY 1l86, l8BTE, 231 

POKE 199ff., 232, 259 

POT 244 

primäre Ausschwingzeit 186, 191 
PRINT 12 82f1., 1661[, 232, 248 
PRINT# 232 

PRINT USING 232 
Programmverzweigungen 30 ff. 


Q 


Quadratwurzel (errechnen) 248 


R 

RAM 1991. 

RCLR 244 

RDOT 244, 265 

READ 11211, 148, 233, 254 
Rechteckwelle 187, 191 
REVORD#F 82, 233 

relative Datei 78f£., 87, 152 
KEWM 231, 299, 256 
RENAME , 77, 216, 233 
RENUMBER 17, 120, 159, 217 
Repeat Funktion 262 
RESET-Schalter 151, 207, 259 
RESTORE 112, 148, 234 
RESTORE-Taste 151 
RESUME 132 


RETURN 821, 1501, 228 
RETURN-Taste 11 
ROR 245, 278 
RICHTM 84, 245 
Ringmodulation 191 
RND 245 

ROM 199 

Routinen, nützliche 263 
RREG 294 
RSPCOLOR 246 
RSPPOS 246 
RSPRITE 246 

RUN 15, 217 
RUN/STOFP-Taste 207 
RWINDOW 247 


S 

Sägezahnwelle 187 
SCALE 234 

Schleife 42 
Schwierigkeiten 146 ft. 
SCNCLR 25 £., 234 
SCRATCH 77, 218 
sekundäradresse 139, 143 
sekundäre Ausschwingzeit 186, 191 
selbstdefinierte Zeichen 281 ff. 
Selektionsroutinen 111 ff. 
sequentielle Dateı 781f., 87 
Sequenz 42 

SGN 247 

SIN 247 

SLEEP 123, 188, 218 
SLOW 218 
Sortierroutinen 95 ft. 
SOUND 1886 ff., 235 

SPC 248 

Speicherstellen 199, 201 f., 206, 
259 

SPRCOLOR 235 

SPRDEF 179, 219 

SPRIIE 1821, 235 
Sprites 179 ft. 

SPRSAV 235 
Sprunganweisung 42 
SOR 248 

SSHAPE 235 

SI 2 

SLAlUS 232 

SIEP 97, 228 
Steueranweisungen 9 


Steuerknüppel 241 
SIOP 23B 
SIOFP-Taste 146, 151 
STR$ T7LE£., 248 
String-Variable 20 
Stromschwankung 39 
Struktogramm 41 ff. 
Subtraktion 12 
SWAP 219 

BYa 235 


Systemvarlablen 22, 131, 133, 


2ol f. 


T 

TAB 115, 248 
Tabulatorstelle 115 
TAN 249 
Tastaturcode 202 
TEMPO 186, 188 £. 
Thermodrucker 138 
Tl 288 

Tieftonfllter 188 
TIME 253 

TIME$ 253 
Tintenstrahldrucker 138 
I) 122E£ 

Ton (erzeugen) 187, 207 
Tonleiter 188f. 
TRAP 1301f., 236 
Tricks (Programmier- 
tricks) 254 ff. 
IKOrr 219 

TRON 219 
Typenraddrucker 136 


U 

UNSCRATCH 7 
unsichtbare 
Vorzeichen 86 
Untermenüs 31 
UNTIL 226 
USR 249 
Utilities 263 


V 

VAL 9, 249 
Variable 19f., 150 
Varlablenliste 64, 111 
VOL 186, 188 ff., 236 
Vorzeichen, 
unsichtbare 86 


W 

Wellenformen 187, 191 
WHILE 226 

WIDTH 236 

Window 236 


X 
XOR 250 


Z 

Zählvariable 98 
Zeichensätze (selbst 
definieren) 281 ff. 
Zeichenvorrat 50 
Zeiger 200, 202 
Zeilennumerlerung, 
automatische 208 
Zero-Page 200 
Zufallszahlen 245 
2-Byte-Verfahren 202 


Sprechen Sie BASIC? — Wer Kenntnisse in 
dieser Programmiersprache besitzt, vermag sei- 
nem Computer so manches beizubringen. Daß 
BASIC zudem gar nicht so schwer ist, garan. 
tiert dieses Buch. 


Dieser Programmierkurs ist in einer verständ- 
lichen Sprache geschrieben. Im Verlauf attrak- 
tiver Lektionen entsteht Schritt für Schritt en 
komplettes, voll funktionsfähiges. BASIC- Pro- 
gramm. So lernt der Leser nicht nur auf ange- 
nehme Weise BASIC, ihm steht zusätzlich ein 
nützliches Programm zur Verfügung, das er 
täglich beruflich oder privat nutzen kann. 


Alfred Görgens beschäftigt sich seit Jahren mit sn 

_ Computern und zählt heute zu den gefragtesten 

Autoren in diesem Bereich. Er hat Arbeiten für 

Rundfunk und Fernsehen sowie zahlreiche 

 Somputerbücher und Artikel in Fachzeitschrif- 
ten veröffentlicht. 
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